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Abstract:  RUP  (Reasoning  Utility  Package)  is  a  collection  of  procedures  for  performing  various 

computations  relevant  to  automated  reasoning.  RUP  contains  a  truth  maintenance  system  (  TMS)  which  can 
be  used  to  perform  simple  propositional  deduction  (unit  clause  resolution),  to  record  justifications,  to  track 
down  underlying  assumptions,  and  to  perform  incremental  modifications  when  premises  are  changed.  This 
I  MS  can  be  used  witli  an  automatic  premise  controller  which  automatically  retracts  "assumptions"  before 
"solid  facts'  when  contradictions  arise  and  searches  for  the  most  solid  proof  of  an  assertion.  RUP  also 
contains  a  procedure  for  efficiently  computing  all  the  relevant  consequences  of  any  set  of  equalities  between 
ground  terms.  A  related  utility  computes  "substitution  simplifications"  of  terms  under  an  arbitrary  set  of 
unquantified  equalities  and  a  user  defined  simplicity  order.  RUP  also  contains  demon  writing  macros  which 
allow  one  to  write  Pl.ANNKR  like  demons  that  trigger  on  various  types  of  events  in  the  data  base.  Finally 
there  is  a  utility  for  reasoning  about  partial  orders  and  arbitrary  transitive  relations.  In  writing  all  of  these 
utilities  an  attempt  has  been  made  to  provide  a  maximally  flexible  environment  for  automated  reasoning. 
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1.  INTRODUCTION 


RUP  (Reasoning  Utility  Package)  is  a  collection  of  utilities  relevant  to  automated  reasoning.  RUP 
contains  a  truth  maintenance  system  (  I  MS)  which  can  be  used  to  perfonn  simple  propositional  deduction 
(unit  clause  resolution),  to  record  justifications,  to  track  down  underlying  assumptions,  and  to  perform 
incremental  modifications  when  premises  arc  changed.  RUP  also  provides  a  fast  system  for  performing 
deductions  concerning  equalities.  Ihc  equality  system  contains  routines  which  "intern"  expressions,  litis 
system  also  performs  all  deductions  which  can  be  made  purely  via  substitution  of  equals  for  equals  and  can 
simplify  tenns  under  a  large  class  of  simplicity  orderings.  RUP  alst)  contains  mechanisms  for  writing 
Pl  .ANNP.R-likc  demons.  Ilic  demons  created  via  this  package  can  be  compiled  as  ordinary  lisp  functions  in 
which  die  pattern  matching  mechanism  is  open  coded  into  the  definition  of  each  such  demonic  function. 

In  designing  tlie  RUP  environment  an  attempt  has  been  made  to  maximize  the  flexibility  of  the  utilities 
and  allow  them  to  interact  effectively  with  user  defined  systems.  Thus  tliere  are  many  "hooks"  which  allow 
the  user  to  modify  RUP  in  dilTcrent  ways.  For  example  hooks  are  provided  for  installing  user  defined 
backtracking  functions  and  user  defined  pattern  directed  invocation  mechanism,  fherc  is  also  a  general 
control  mcdiodology  adopted  in  RUP  which  asscKiates  queues  with  invariants.  Ilic  demonic  triggering 
mechanisms  provided  by  RUP  allow  die  user  to  define  his  own  queues  and  invariants  and  to  maintain  those 
invariants  by  having  forms  queued  demonically  when  an  invariant  is  violated.  RUP  provides  a  simple  data 
base  in  die  form  of  interned  expressions  but  users  typically  define  their  own  data  structures  and  define 
invariants  which  associate  their  data  stnictures  with  those  provided  by  RUP. 

Ibis  document  describes  the  major  functions  in  RUP  and  examples  of  their  use.  The  description  oi  each 
function  is  prefaced  by  the  name  of  the  function  in  bold  letters  followed  by  die  list  of  arguments  taken  by  that 
function.  RUP  is  implemented  in  both  LISP  M.ichinc  LISP  and  in  MACLISP.  There  arc  two  versions  of  the 
I  MS  one  which  implements  a  semi-automatic  certainty  based  premise  controller  and  one  which  leaves 
premise  control  entirely  to  the  user.  One  can  load  RUP  into  LISP  by  loading  whichever  of  die  following  files 
is  appropriate  (the  files  reside  on  MIT-AI): 


ALRUP;RUP  > 
A1:RUP;RUPP  > 
AI:RUP;MRUP  > 
A1:RUP:MRUPP  > 


LISP  machine  RUP  without  premise  controller 
LISP  machine  RUP  with  semi-automatic  premise  control 
MACLISP  RUP  without  premise  controller 
MACLISP  RUP  with  semi-automatic  premise  control 


The  LISP  machine  versions  loads  into  the  package  RUP  and  all  symbols  in  this  manual  which  do  not 
have  an  explicit  package  prefix  reside  in  the  RUP  package.  In  the  MACLISP  version  package  prefixes  are 
simply  interpreted  as  part  of  the  character  name. 
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1  SOME  SIMPLE  SCENARIOS 

This  section  is  intended  for  first  time  users  who  want  to  use  RUP  in  the  most  straightforward  manner 
possible.  A  series  of  scenarios  is  presented  each  of  whidt  is  intended  to  demonstrate  some  feature  of  the  top 
level  RUP  environment.  The  reader  should  be  cautioned  against  just  reading  these  scenarios  and  not  reading 
the  remainder  of  the  manual.  There  arc  many  utilities  which  are  not  demonstrated  in  these  scenarios. 
Farthermore  the  scenarios  emphasize  the  use  of  RUP  as  a  programming  language  and  leave  out  the  important 
view  of  RU  P  as  a  utility  package. 

The  first  scenario  demonstrated  the  simple  propositional  reasoning  facilities  and  the  explanation 
generation  mechanisms. 

The  second  scenario  demonstrates  how  the  simple  propositional  deduction  mechanisms  can  be  extended 
with  a  refutation  mechanism  invoked  by  the  tup  level  function  try-to-show  while  the  third  scenario  shows  the 


Scenario  1. 


(assert  •(;->  p  q)) 
(assart  ‘ ( :->  q  r)) 
(assart  'p) 

(why  ’r) 

"R  IS  :TRUE  FROM;" 

"1  Q  IS  :TRUE" 

"I  ( :->  0  R)  IS  :TRUE" 

(why  1) 

"0  IS  ;TRUE  FROM:" 

"1  P  IS  :TRUE" 

"Z  ( :->  P  0)  IS  :TRUE" 

(why  1) 

"P  IS  ;TRUE  AS  A  PREMISE" 
(why  0) 

"0  IS  :TRUE  FROM:" 

"1  P  IS  :TRUE" 

"2  (:->  P  0)  IS  :TRUE" 

(why  0} 

"R  IS  :TRUE  FROM:" 

"1  Q  IS  :TRUE" 

”2  (:->  0  R)  IS  :TRUE" 


(why  2) 

'(;->  Q  R)  IS  :rRUE  AS  A  PREMISE" 
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substitution  capabilities  of  the  system. 

'fhe  final  scenario  demonstrates  the  use  of  simple  demons.  Of  course  demons  are  not  normally  defined 
by  typing  them  into  the  top  level  RUP  environment.  Each  patte  rn  directed  demon  has  a  trigger  pattern,  a 
triggering  condition  keyword  (such  as  :intcm)  and  a  queue  on  which  the  invocation  of  the  body  is  placed 
when  the  triggering  occurs.  'Ilic  symbol  *hasic-qucucs*  is  bound  to  a  list  of  queues  which  arc  emptied  by 
cenain  top  level  functions  such  as  assert  and  why.  'fhe  body  of  a  demon  may  be  any  list  of  LISP  expressions. 
'Hie  macro  Iconst  constructs  clauses  in  the  TMS  corresponding  to  the  assertions  it  is  given.  Constructing  a 
clause  in  the  TMS  is  different  from  asserting  an  implication:  specifically  clauses  never  appear  in  explanations 
while  asserted  implications  do. 


Scenario  2. 


I 


(assert  p  r)) 

(assert  '( :->  q  r)) 

(assert  '( ;or  p  q)) 

(why  ’r) 

"I  DON'T  KNOW  WHETHER  OR  NOT  R  IS  :TRUE" 
(try-to-ihow  'r) 


(why  ’r) 

"R  IS  :TRUE  FROM:" 

"1  (:->  P  R)  IS  :TRUE" 
"2  (:->  0  R)  IS  :TRUE" 
"3  (:0R  P  0)  IS  :TRUE" 


Scenario  3. 


(assert  '(■  (f  a  b)  a)) 

(why  ’(•  (f  (f  a  b)  b)  a)) 

"(•  (F  (F  A  B)  B)  A)  IS  :TRUE  FROM:' 
”1  (-  (F  A  B)  A)  IS  :TRUE” 
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Scenario  4. 


(setq  *ut«r-qu«u«*  (maka-flfo)) 

(sttq  *bas1c-q<i«u*s*  (append  *baslc-quauat*  (list  *usar-qusua*))) 

(notice  (Intern  (dog  7x))  *utar-quaua* 

(iconst  (:->  (dog  7x)  (manmal  7k)))) 

(notice  (Intern  (hawk  7x))  *uter-queua* 

(Iconst  (:->  (hawk  7x)  (bird  7x)))) 

(notice  (Intern  (mammal  7x))  *user-queua* 

(Iconst  (:not  (:and  (mammal  7x)  (bird  7x))))) 


(assert  '(dog  fido)) 

(why  ‘(hawk  fido)) 

"(HAWK  FIDO)  IS  ; FALSE  FROM;’ 

"1  (BIRO  FIDO)  IS  : FALSE" 

(why  1) 

"(BIRD  FIDO)  IS  .-FALSE  FROM:’ 

"1  (MAMMAL  FIDO)  IS  :TRUE" 

(why  1) 

"(MAMMAL  FIDO)  IS  :TRUE  FROM:" 

"1  (DOG  FIDO)  IS  :TRUE" 

(why  1) 

"(OOG  FIDO)  IS  :TRUE  AS  A  PREMISE* 
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3.  IlJE  IMS 


3.  THE  TRUTH  MAINTENANCE  SYSTEM 

A  truth  maintenance  system  is  a  utility  which  operates  on  an  asscrtional  data  base  (a  collection  of  TMS 
nodes)  and  has  at  least  the  following  four  properties: 

1)  It  can  perform  some  form  of  propositional  deduction  from  propositional  premises 
(propositional  deduction  docs  not  involve  quantification). 

2)  It  records  justifications  for  deduced  assertions  and  can  generate  explanations  for  those 
assertions. 

3)  It  can  incrementally  retract  deductions  when  premises  are  retracted  so  that  all  "true" 
assertions  in  die  data  base  arc  either  premises  or  follow  logically  from  the  premises. 

4)  It  can  perform  "dependency  directed  backtracking".  That  it  to  say  that  when  a  contradiction 
arises  it  can  use  tlie  recorded  justifications  to  track  down  the  premises  underlying  that 
contradiction.  Turthcrmorc  when  one  of  these  premises  is  rcuactcd  it  can  use  the  contradiction 
to  deduce  die  negation  of  the  retracted  premise. 

I'his  section  describes  the  functionality  of  RUP's  I  MS  in  detail.  The  first  part  of  this  section  describes 
the  association  between  queues  and  invariants  which  is  used  in  much  of  RUP.  ITie  second  part  describes  the 
two  basic  data  structures  used  in  the  I’MS.  The  third  describes  the  basic  TMS  invariants  which  form  the  major 
specifications  for  die  ftinctionality  of  the  TMS.  The  fourth  part  describes  the  mfi>or  functions  defined  in  the 
I  MS.  Hie  fifth  part  describes  TMS  demons. 

3. 1 .  Queues  and  I nvariants 

Much  of  RUP  is  specified  by  stating  invariants  which  should  hold  in  the  RUP  environment.  Several  of 
-o  invariants  arc  associated  with  queues,  such  that  for  each  violation  of  the  invariant  there  is  some  entry  on 
the  queue  that  can  be  used  to  correct  that  violadon.  Thus  when  a  queue  has  been  emptied  the  invariant 
associated  with  that  queue  must  hold.  For  example  there  is  a  I'MS  invariant  which  says  that  for  each 
contradiedon  in  the  TMS  there  is  an  enU7  on  the  queue  *backtracking-invariant*.  While  there  are  many 
TMS  invariants,  the  only  user  visible  queue  associated  with  these  invariants  is  *backtracking-invariaiit*. 
(There  are  other  user  visible  queues  which  are  associated  with  other  RUP  invariants.)  The  basic  primitives  for 
constructing  and  manipulating  all  RUP  queues  arc  described  here. 
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makc-nfo  () 


'lliis  function  returns  a  new  first  in  first  out  queue, 
fifo-piish  (item  queue) 

This  function  pushes  an  item  on  a  fifo  queue.  Kach  item  on  a  queue  must  be  a  list  of  a 
function  followed  by  a  list  of  arguments.  Thus  a  particular  queue  entry  item  can  be  "run"  by 
evaluating: 


(apply  (car  item)  (edr  item)) 


fifo-cnipty?  (queue) 

Tluis  predicate  is  non-nil  just  in  case  the  given  queue  is  not  empty, 
run-queues  (queue-list) 

TTiis  flinction  takes  a  list  of  queues  and  empties  them  by  "running"  the  items  on  the 
queues.  This  function  iteratively  takes  the  next  item  of  die  first  non-empty  queue  in  the  given 
list  of  queues  and  runs  that  item.  Note  that  in  running  one  item  more  items  may  be  queued. 
Tlius  a  queue  which  was  empty  at  one  iteration  may  not  be  empty  on  the  next  iteration.  On  each 
iteration  this  function  takes  the  first  item  off  the  first  non-empty  queue.  The  function  terminates 
when  all  queues  arc  empty. 

The  order  of  the  queues  in  the  given  list  of  queues  imposes  a  "priority"  on  the  queues. 
Items  on  the  second  queue  will  only  be  run  in  environments  in  which  the  first  queue  is  empty. 
T  hus  if  there  is  some  invariant  associated  with  the  first  queue  items  on  the  second  queue  will 
only  be  run  in  an  environment  in  which  that  invariant  is  in  force. 

*hasic-qucucs*  variable 

This  variable  is  bound  to  a  list  of  queues  and  can  be  passed  as  an  argument  to 
multi-fifo-i  mpty.  The  default  value  of  this  variable  is: 

(list  •equality- invariants*  •rup-top-lcvcl*  •backtracking-invariant*) 

TTie  \ariablcs  *cquality'invariants*,  *nip-top-lcvcl*,  and  *backtracking-invariant*  are  all 
set  to  queues  in  the  default  RUP environment. 
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3.2.  Nodes  and  Clauses 


llicic  arc  two  basic  daUi  siniclurcs  used  in  die  I  MS:  TIVIS-  nodes  and  clauses. 


3.2.1  I  MS  NOOKS 


I  IM.S-nodc  .structure 


(dafstruct  (tms-node  (.-type  : named-array)) 
assertion 
(truth  ‘ :unknown) 
support 
true-noticers 
false-noticars 
change-noticers 
neg-clauses 
pos-c1auses 
def  aut  t 
default-cert 
certainty 

(node-plist  (neons  nil)) 

(node-extension  (funcall  *make-node-extension*)) ) 


llic  slots  of  uns-nodcs  is  described  below: 

assertion  A  uns-nodc  is  intended  to  represent  a  proposition  or  assertion  or  some  form.  The 
assertion  slot  is  not  used  by  the  TMS  directly  but  is  intended  to  hold  the  name  of  the  assertion. 
In  RUP  the  assertion  slot  holds  the  term  whose  print  name  is  the  name  of  the  assertion.  Terms 
arc  described  in  the  section  on  the  equality  system. 

truth  This  slot  always  contains  one  of  the  atoms  tunknown,  :tnic  and  :false. 

support  Ihis  slot  is  either  nil  or  contains  a  clause  which  is  the  justification  for  the  truth  of  this 
node.  Only  nodes  whose  truth  is  cither  :tnic  or  :falsc  have  non-nil  support  slots.  This  slot  is 
described  in  more  detail  in  the  section  on  TMS  invariants. 

truc-noticers.  falsc-notiecrs.  and  change-noticers  These  slots  contain  demons  which  are  queued 
when  certain  events  occur  in  the  TMS.  These  slots  are  described  in  more  detail  in  the  section  on 
tms  noticers. 

neg'clauses  For  any  TMS  node  n  the  neg-clauscs  of  n  is  a  list  of  all  those  clauses  c  such  that  the 
pair  (n .  :false)  is  a  member  of  the  clause-list  of  c.  (See  the  description  of  clauses.) 

pos-elauscs  For  any  TMS  node  n  the  pos-clauscs  of  n  is  a  list  of  all  those  clauses  r  such  that  the 
pair  (/) .  :truc)  is  a  member  of  the  clause-list  of  c.  (Sec  the  description  of  clauses.) 
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default  Hits  slot  is  only  used  in  the  'I  MS  with  the  semi-automatic  premise  controller,  lliis  slot 
is  cither  nil  or  contains  a  default  truth  value  which  is  either  :truc  or  :false.  ITiis  slot  is  described 
in  more  detail  in  the  section  on  TMS  invariants. 

default-cert  This  slot  is  only  used  in  the  TMS  with  the  semi-automatic  premise  controller.  If  the 
default  slot  is  non-nil  then  this  slut  contains  an  integer  between  die  values  of  the  special 
variables  *niin-ccrt*  and  *max-cert*  inclusive.  ITiis  slot  is  discussed  further  in  the  section  on 
TMS  invariants. 

certainty  This  slot  is  only  used  in  the  TMS  with  the  semi-automatic  premise  controller.  If  the 
truth  of  the  node  is  nut  :uiiknown  then  this  slot  contains  the  minimum  ccruiinty  of  the  premises 
which  underly  the  truth  of  the  node. 

nodc-plist  This  slot  contains  a  disembodied  property  list  (LISP  Machine  manual  pp.  71-72)  and 
is  initialized  to  (neons  nil).  Hiis  allows  the  user  to  define  properties  which  arc  not  already 
structure  slots.  A  new  "slot"  for  TMS  nodes  can  be  defined  as  follows: 

(defmaci'o  new-s1ot  (node) 

'(get  (node-plist  .node)  ’new-slot)) 

Since  the  nodc-plist  slot  is  used  internally  in  RUP  it  is  important  that  the  user  not  violate  the 
conventions  for  property  lists  in  using  this  slot 

node-extension  This  slot  is  not  used  internally  in  RUP  and  is  available  for  use  by  the  user.  The 
value  of  this  slot  is  initialized  to  (funcall  *makc-nodc-cxlcnsion*)  so  that  the  user  can  control  the 
initial  value,  ♦makc-nodc-cxtcnsion*  is  initialized  to  a  function  which  always  returns  nil.  It  is 
intended  that  the  user  define  his  own  structure  which  extends  the  node  data  structure'  and 
initialized  this  slot  to  that  structure  which  could  be  done  as  follows: 

(defstriict  (node-extension) 
fl 
f2 
...) 

(defun  <>xten8lon-maker  () 

(make  -node-extension)) 


(setq  *make-node-extens1on*  (fsymeval  'extenslon-makar)) 
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3.2.2  CLAUSES 

A  clause  is  a  data  structure  which  represents  a  logical  disjunction.  A  clause  should  be  tliuught  of  as 
representing  a  constraint  which  says  that  at  least  one  of  a  particular  collection  of  items  must  be  true.  Hie 
details  of  this  data  structure  arc  described  below. 

clause  structure 

(defstruct  (clause  (:typa  : named-array)) 
c1ause-1 1st 
psat) 

clause-list  This  slot  contains  a  list  of  pairs  such  that  tlic  car  of  each  pair  is  a  tms-nodc  and  the 
edr  of  each  pair  is  either  the  atom  ;true  or  the  atom  :falsc.  A  given  pair  is  said  to  be  true  if  the 
truth  of  its  car  is  die  same  as  its  edr.  Similarly  a  pair  is  said  to  be  false  if  the  truth  its  car  is  the 
opposite  of  its  edr.  For  example  if  the  truth  of  a  node  n  is  :falsc  then  the  pair  (n .  tfalse)  is  said 
to  be  true  while  die  pair  (u .  :truc)  is  said  to  be  false.  Since  the  truth  of  a  TMS  node  can  be 
'.unknown  it  can  be  the  ease  diat  a  given  pair  in  die  clause  list  is  neither  true  or  false.  A  clause 
should  be  diought  of  as  a  disjunction  which  says  that  not  all  of  die  pairs  in  its  clause-list  can  be 
false. 

psat  lliis  slot  always  contains  a  number  which  is  the  number  of  pairs  in  the  clause  list  which 
are  not  false.  Any  clause  whose  psat  is  0  is  called  acontradiction.  A  clause  whose  psat  is  1  can  be 
used  as  a  justification  for  assigning  a  truth  value  to  the  node  wiiich  is  the  car  of  the  pair  in  the 
clause-list  which  is  not  false. 


3.2.3  SOME  CONVENIEN  T  MACROS 

llic  following  macros  arc  convenient  for  testing  the  truth  of  a  node: 

true?  (node) 

The  form  (true?  node)  macroexpands  to  (eq  ’:tnie  (truth  node)), 
false?  (node) 

(false?  node)  =  =  >  (eq  ’'.false  (truth  node)) 
unknown? (node) 


(unknown?  node)  =  =  >  (eq  ’runknown  (truth  node)) 
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3.3.  The  TMS  Invariants 

There  are  three  groups  of  invariants  omceming  the  TMS  data  structures  which  arc  maintained  by  the 
TMS.  llic  first  group  of  invariants,  the  justification  invariants,  ensure  that  every  deductions  has  a  well 
founded  justification  (i.e.  that  the  deduction  performed  by  the  system  is  sound).  The  second  group  of 
in  .variants,  the  deduction  invariants,  guarantee  that  deduction  is  closed  under  a  simple  deduction  rule  (which 
is  equivalent  to  unit  clause  resolution).  A  final  backtracking  invariant  can  be  used  to  ensure  that  the  set  of 
premises  in  the  system  is  "consistent'*  in  that  no  contradiction  can  be  deduced  using  tlic  TMS’s  deduction 
machinery.  Some  of  the  justification  and  deduction  invariants  only  apply  to  tire  TMS  witli  the  semi-automatic 
premise  controller.  Only  the  backtracking  invariant  involves  a  user  visible  queue. 


3.1.1  THH  JUSTIFICATION  INVARIANTS 

Only  nodes  whose  truth  slot  is  either  :truc  or  tfalsc  can  have  non-null  support  slots  and  when  such  a 
support  slot  is  non-null  it  contains  a  clause  which  is  the  justification  for  the  truth  value  of  the  supported  node, 
liiich  clause  should  be  thought  of  as  a  disjunction  (sec  the  above  description  of  tJtc  clause  data  structure).  The 
basic  idea  behind  justifications  is  that  truth  value  of  the  justified  node  (the  value  of  its  truth  slot)  follows 
logically  from  tlic  justifying  clause  and  the  truth  values  of  the  other  nodes  in  that  clause.  All  clauses  are 
interpreted  by  the  system  as  logical  tautologies,  tJnis  while  the  truth  values  assigned  to  nodes  can  be  retracted, 
clauses  cannot  be  removed.  Similarly,  in  generating  explanations  the  system  will  list  assignments  of  truth 
values  to  nodes  but  will  nut  mention  the  existence  of  clauses,  fhe  interpretation  of  clauses  as  tautologies  is 
described  in  more  detail  in  [McAlIester  SObJ.  A  TMS  node  whose  truth  is  eitlier  :truc  or  :false  (i.c.  not 
tunknown)  but  which  docs  not  have  any  supporting  clause  (i.c.  its  support  slot  is  nil)  will  be  called  a  premise. 

Local  Supfiort  Invariant:  1Tiis  invariant  states  that  the  truth  value  which  has  been  assigned  to  a 
supported  mxlc  n  follows  logically  from  (he  clause  which  is  the  support  of  n  and  the  truth  values 
which  have  been  assigned  to  the  other  nodes  appearing  in  the  clause.  Specifically  let  n  be  any 
I  MS  node  whose  truth  is  cither  :true  or  :false  and  whose  support  is  not  nil.  I'hc  support  of  n 
must  contain  a  clause  c  such  that  the  psat  of  c  is  I  (there  is  exactly  one  pair  in  the  clause  list  of  c 
which  is  not  false)  and  such  that  the  pair  in  c  which  is  not  false  contains  n  (the  supported  node). 

Well  Founded  Support  Invariant:  This  invariant  states  that  support  trees  are  acyclic,  i.e.  that  no 
node  is  a  support  node  of  itself.  Specifically  let  n  be  any  TMS  node  whose  truth  is  cither  .’true 
or  :falsc  and  whose  support  is  some  clause  c.  The  nodes  other  than  n  which  appear  in  the  clause 
list  of  c  will  be  called  the  immediate  support  nodes  of  n  (a  premise  has  no  immediate  support 
nodes).  A  node  m  will  be  called  a  support  node  of  n  if  it  is  either  an  immediate  support  node  of 
n  or  it  is  an  immediate  support  node  of  some  node  which  is  a  support  node  of  n  (thus  the 
support  nodes  of  n  arc  those  .nodes  appearing  in  the  support  tree  of  n).  The  premises  which  are 
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support  nodes  of  n  will  be  called  the  support  premises  of  n. 

Certainty  Justification  Invariants:  llicse  are  two  invariants  which  apply  only  to  tlic  I  MS  with 
the  semi-automatic  premise  controller.  I  o  define  die  first  certainty  justification  invariant  let  n  be 
any  premise.  ITic  truth  of  /;  must  be  the  same  as  the  default  of  n  (which  must  not  be  nil)  and  the 
certainty  of  n  must  be  the  same  as  the  default-certainty  of  /;  (which  must  also  not  be  nil).  In 
other  words  any  premise  must  be  a  premise  by  virtue  of  the  fact  that  it  has  a  default  value  and 
the  certainty  of  tlic  premise  is  the  default  certainty.  To  define  the  second  certainty  justification 
invariant  let  n  be  any  node  whose  truth  is  citlicr  :truc  or  :falsc  and  whose  support  is  some  clause 
c.  Ihc  certainty  of  n  must  be  tlic  minimum  of  the  certainties  of  all  of  it's  immediate  support 
nodes.  ITiis  togctlicr  with  die  well  founded  support  invariant  implies  dial  the  certainty  of  n  is 
the  minimum  of  the  certainties  of  all  of  die  support  premises  of  n. 


3.3.2  1  UK  DKDUCnON  INVARIANTS 

llic  I  MS  performs  simple  propositional  deduction  from  clauses  and  the  truth  values  which  have  been 
assigned  to  nodes.  ITic  deduction  perfonned  is  not  complete  (i.c.  there  arc  valid  deductions  which  arc  not 
made).  However  the  deduction  priKCSsing  is  incremental  and  is  guaranteed  to  terminate  in  linear  dmc  in  the 
n'.nnbcr  of  clauses  in  the  system.  Tlic  basic  deduction  invariant  is  dial  all  deductions  which  can  be  made  from 
a  single  clause  and  assignments  of  truth  values  to  nodes  have  been  made. 

Main  Deduction  Invuiiant:  Let  c  be  any  clause  whose  psat  is  1  (any  clause  such  that  there  is 
only  one  pair  in  its  clause  list  which  is  not  false).  Let  p  be  the  pair  in  r  which  is  not  false  and  let 
n  be  the  node  which  is  the  car  of  p.  The  main  deduction  invariant  is  that  the  truth  of  n  is  the 
same  as  the  edr  of  /i.  If  the  truth  of  n  was  runknown  then  the  clause  r  could  be  used  to  deduce 
that  n  must  be  assigned  the  truth  value  which  is  associated  with  it  in  p.  The  main  deduction 
invariant  says  that  all  such  deductions  have  been  made. 

Default  Value  Invariant:  This  invariant  applies  only  to  the  TMS  with  the  semi-automatic 
premise  controller.  It  ensures  that  any  node  which  has  a  default  truth  value  and  which  cannot 
be  proven  to  have  the  opposite  of  its  default  value  does  in  fact  take  on  its  default  value. 
Specifically  let  n  be  any  node  whose  default  is  not  nil  (i.e.  any  node  with  a  default  truth  value). 

The  default  value  invariant  is  that  the  truth  of  n  must  be  either  :tnie  or  :falsc  and  that  the 
certainty  of  n  must  be  at  least  as  large  as  the  dcfault-ceit  of  n  (which  must  not  be  nil). 
Furthermore  if  the  truth  of  n  equals  the  default  of  n  and  the  certainty  of  n  equals  the  defauibcert 
of  n  then  the  support  of  n  must  be  nil  (the  node  n  must  be  a  premise). 
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Deduction  Certainty  Invariant;  This  invariant  applies  only  to  the  TMS  with  (he  semi-autoinatie 
premise  controller.  It  says  that  each  node  is  given  the  strongest  (most  certain)  justification  which 
can  be  found  via  the  propositional  deduction  mechanisms  used  by  the  I'MS.  Specifically  let  c  be 
any  clause  whose  psat  is  1,  let  p  be  the  pair  in  c  which  is  not  false,  and  let  n  be  the  node  which  is 
the  car  of  p.  The  deduction  certainty  invariant  is  that  the  certainty  of  n  is  not  smaller  than  the 
minimum  of  the  certainties  of  the  nodes  in  the  false  pairs  of  c.  To  better  understand  this 
invariant  consider  the  relationship  between  the  clause  c  and  the  node  n.  By  the  main  deduction 
invariant  n  must  be  assigned  the  truth  value  which  is  the  edr  of  p.  However  the  support  of  n 
need  not  be  the  clause  c.  If  c  is  not  the  support  of  n  then  c  may  provide  an  alternative  method  of 
deducing  the  truth  value  of  « (the  only  problem  woulo  'C  if  using  c  for  the  support  of  n  would 
introduce  a  circular  justification  violating  the  well  founded  support  invariant).  If  the  certainty  of 
n  were  less  than  the  certainty  which  would  result  from  using  c  as  the  support  of  n  then  c 
provides  a  "stronger"  argument  for  the  truth  value  assigned  n  and  the  support  for  n  could  be 
strengthened  by  setting  it  to  e  (it  can  be  shown  that  such  "strengthening"  :.evcr  introduces 
circularities).  Ihe  deduction  certainty  invariant  says  that  all  such  possible  strengthenings  have 
been  done. 


3..TJ  THH  BACKTRACKING  INVARIANT 

Any  clause  whose  psat  is  0  is  called  a  contradiction.  Since  each  clause  is  interpreted  as  a  tautological 
disjunction,  if  all  pairs  in  a  clause  c  are  false  then  the  uuth  values  which  have  been  assigned  to  the  nodes  in 
those  pairs  arc  mutually  contradictory. 

llic  backtracking  invariant:  Hiis  invariant  is  that  for  each  contradictory  clause  c  there  is  a  list  b 
on  the  queue  *backtracking*invariant*  such  that  the  car  of  b  is  the  function  which  is  the  value  of 
the  variable  *backtrjcl(cr*  and  the  edr  of  6  is  a  one  element  list  containing  c.  Thus  "running"  b 
is  equivalent  to  evaluating;  (funcall  *backtrackcr*  c). 

*backtrackcr*  variable 

The  value  of  this  variable  is  a  backtracking  function  which  is  used  to  construct  the  item 
placed  on  the  queue  *backtracking-invariant*  when  a  contradiction  arises.  The  default  value  of 
this  variable  is  backtracker-dcfault  which  is  described  below. 

"backtracking-invariant*  variable 


The  value  of  this  variable  is  the  queue  associated  with  the  backtracking  invarianL 
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3.4.  Major  TMS  Functions 

This  section  describes  the  I’MS  functions  which  might  be  of  inteirest  to  the  user.  It  also  describes  some 

parameters  of  the  I  MS  which  can  be  set  by  the  user. 

add-clausc  (clause-list) 

Ihe  clause-list  must  be  a  list  of  pairs  each  of  which  associates  a  TMS  node  with  either  :truc 
or  :falsc.  This  function  creates  a  clause  with  the  given  clause  list  and  ensures  all  of  the  I  MS 
invariants  by  performing  whatever  deductions  die  clause  allows  and  by  queueing  the 
backtracking  of  any  resulting  contradictions. 

nodc-add-clausc  (pos-nodes  neg-nodes) 

The  pos-nodes  and  neg-nodes  arguments  must  both  be  lists  of  TMS  nodes.  This  function 
first  constructs  a  clause  list  by  ass<Kiating  all  die  nodes  in  pos-nodes  with  rtruc  and  all  of  the 
nodes  in  neg-nodes  with  :falsc.  It  then  adds  a  clause  with  this  clause  list  by  calling  add-clausc. 

implies  (nodes  node) 

A  call  to  this  function  of  the  form  (implies  nodes  node)  is  equivalent  to 
(node-add'Clausc  (list  node)  nodes).  It  adds  a  clause  which  represents  the  assertion  Uiat  if  all  of 
the  I  MS  nodes  in  the  nodes  argument  are  true  then  node  should  also  be  true. 

contradictory  (nodes) 

A  call  to  this  function  is  equivalent  to  (nodc-add-clausc  nil  nodes).  It  adds  a  clause  which 
says  that  one  of  the  nodes  must  be  false. 

clausc-ccrt  (clause) 

This  function  is  only  defined  in  the  TMS  with  the  premise  controller.  This  function  takes  a 
clause  and  returns  the  minimum  certainty  of  the  TMS  nodes  in  the  false  pairs  of  that  clause.  The 
justification  certainty  invariant  says  that  the  certainty  of  a  supported  node  equals  the  clause-cert 
of  the  support  of  that  node. 

make-premise  (node  truth-value) 

This  function  is  only  defined  in  the  TMS  wiihoui  the  premise  control  mechanism.  This 
function  forces  the  truth  of  the  given  node  to  be  the  given  truth  value  which  is  required  to  be 
cither  :truc  or  .‘false.  If  the  given  node  was  previously  assigned  the  opposite  value  then 
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retraction  is  done  before  the  new  assignment  is  made.  This  function  guarantees  that  all  1'MS 
invariants  are  maintained. 

•niin-ccrt*,  ♦max-cert*  variables 

lltcsc  arc  variables  which  may  be  set  by  the  user.  All  certainties  must  be  between  the 
values  of  ♦min-cert*  and  •max-ccit*  inclusive.  The  default  values  of  *min-ccrt*  and  *max-ccrt* 
are  1  and  S  respectively. 

se  t-default  (node  value  certainty) 

This  function  is  defined  only  in  the  TMS  with  the  premise  control  mechanism.  This 
function  sets  the  default  of  the  given  node  to  value  and  the  dcfault-ccrt  of  the  given  node  to  the 
given  certainty.  Hiis  function  guarantees  that  all  I'MS  invariants  arc  maintained  by  performing 
whatever  truth  assignments,  retraction,  deduction,  and  backtrack  queueing  that  is  necessary. 
Ihus  if  ilic  truth  of  the  given  node  was  unknown  before  the  call  then  the  truth  of  the  given  node 
will  be  set  to  the  given  value  (which  must  be  :tnic  or  rfalse). 

rctract-prcmisc  (node) 

This  function  is  only  defined  in  the  TMS  without  the  premise  controller.  This  function  sets 
the  truth  of  the  given  node  to  runknown  and  guarantees  the  maintenance  of  all  1'MS  invariants. 
(Maintenance  of  the  'nvariants  requires  a  retraction  phase  in  which  all  nodes  which  depended 
on  the  retracted  node  arc  retracted  and  a  deduction  phase  in  which  ail  nodes  which  were 
retracted  are  checked  to  see  if  some  alternative  support  is  available,  'fo  avoid  circular 
dependencies  it  is  important  that  the  retraction  phase  completes  before  the  deduction  phase 
begins.  I'o  achieve  this  there  is  an  internal  queue  a^ociated  with  the  deduction  invariants.) 

remove-default  (node) 

This  function  is  only  defined  in  the  TMS  with  the  premise  control  mechanism.  This 
function  sets  both  the  default  and  the  dcfault-ccrt  of  the  given  node  to  nil  and  maintains  all  TMS 
invariants.  Thus  the  given  node  will  not  be  a  premise  after  this  function  exits. 

♦view-node*  variable 

This  variable  is  bound  to  a  function  which  when  applied  to  a  TMS  node  returns  a  "name" 
for  tliat  node.  The  default  value  for  *view-node*  is  the  function  view-node-dcfault  which  assumes 
that  the  assertion  of  the  node  is  a  term  (described  in  the  section  on  the  equality  system)  and 
returns  the  expression  which  that  term  represents. 
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vicw-clausc  (clause) 


This  function  returns  an  "imago"  of  the  clause  list  of  the  clause  in  which  each  node  has 
been  replaced  by  the  "name"  of  the  node  as  given  by  die  value  of  •view-node*. 


iicdc-why  (node) 

This  function  generates  an  explanation  for  the  truth  value  assigned  the  node.  If  the  truth  of 
the  given  node  is  :unknown  then  a  simple  statement  to  that  effect  is  generated.  If  truth  of  the 
given  node  is  :truc  or  Talse  and  its  support  is  not  nil  then  the  generated  explanation  gives  a 
numbered  list  of  the  immediately  support  nodes  and  their  truths.  The  argument  to  nodc-why 
may  be  a  number  in  which  case  an  explanation  is  generated  for  the  support  node  corresponding 
to  that  number  in  the  previous  explanation,  if  the  argument  0  is  given  then  the  explanation  stack 
is  "popped".  I’he  following  scenario  demonstrates  tlie  use  of  this  function. 

(setq  *view-noda*  '(lambda  (node)  (assertion  node))) 

(defun  symbol -node  (sym) 

(let  ((n  (make-tms-node))) 

(set  sym  n) 

(setf  (assertion  n)  sym) 
sym)) 

(symbol -node  'p) 

(symbol -node  ’q) 

(symbol -node  '!(:->  p  q)|) 

(implies  (list  |(:->  p  q)|  p)  q) 

(make-premise  |(;->  p  q)|  '.'true) 

(make-premise  p  ':true) 


(node-why  q) 

"q  Is  :true  from" 

"1  |(  :->  p  q)|  Is  :true" 

"2  p  Is  :truo" 
t 

(node-why  1) 

")(:->  p  q)j  Is  :true  as  a  premise" 

(node-why  0) 

"q  Is  :true  from" 

■1  !(;->  p  q)|  is  :troe" 

"2  p  Is  :true" 
t 

(node-why  2) 

"p  Is  :true  as  a  premise" 
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The  node-why  function  allows  the  user  to  walk  around  the  support  tree  of  a  node 
investigating  various  support  paths. 

backirackcr-dcfault  (clause) 

lliis  is  the  default  value  of  the  variable  *backtrackcr*  which  is  used  in  constructing 
backtracking  fonns  to  place  on  the  queue  ^backtracking-invariant*  (see  the  section  on  the 
backtracking  invariants).  This  function  takes  a  clause  and  if  the  clause  is  not  a  contradiction  it 
docs  nothing.  Ollicrwisc  it  first  constructs  a  list  of  all  the  support  premises  of  all  the  nodes  in  the 
clause  (all  of  the  premises  underlying  the  contradiction).  In  the  TMS  with  the  semi-automatic 
premise  controller  this  list  is  then  filtered  so  that  only  those  premises  which  have  the  least 
certainty  remain.  One  premise  from  the  candidate  premises  is  then  chooses  for  retraction.  If 
there  is  only  one  candidate  premise  then  this  is  the  one  chosen.  If  there  is  more  than  one 
candidate  premise  then  the  value  of  *prcniisc-sclector*  is  applied  to  the  list  of  candidate 
premises  and  the  premise  returned  is  the  one  chosen  for  retraction.  (The  fact  that  the  value  of 
*prcmise-sclcctor*  may  be  called  even  in  t!ic  TMS  with  tltc  premise  controller  is  the  reason  for 
calling  this  premise  controller  semi-automatic  rather  than  automatic.)  The  premise  chosen  for 
retraction  is  retracted  and  then  the  negation  of  that  premise  is  deduced  from  the  other  premises 
and  the  fact  that  tltc  premises  arc  mutually  contradictory. 

•premise-selector*  variable 

The  value  of  this  variable  must  be  a  function  which  takes  a  list  of  nodes  and  returns  one  of 
them.  This  function  is  only  called  on  lists  of  nodes  where  the  current  truth  values  of  the  nodes  in 
that  list  arc  mutually  contradictory.  The  default  value  of  •premise-selector*  is 
prcmisc-sclector-dcfault  which  types  the  list  of  nodes  at  the  terminal  and  asks  the  user  to  select 
one. 

premises  (clause-list) 

This  function  returns  a  list  of  all  the  nodes  which  arc  premises  which  either  appear  directly 
in  false  pairs  in  the  clause-list  or  are  support  premises  of  a  node  in  a  false  pair  in  clause-list  This 
hmetion  can  be  applied  to  the  clause  list  of  a  contradiction  to  get  the  set  of  premises  underlying 
the  contradiction  or  it  can  be  applied  the  clause-list  of  the  support  of  a  node  to  get  the  set  of 
premises  supporting  that  node. 

reverse-truth  (node  contradiction) 


This  function  can  be  used  to  write  backtracking  functions.  The  given  contradiction  must 
be  a  clause  whose  psat  is  0  (a  contradiction)  and  the  given  node  must  be  a  premise  underlying 
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that  contradiction.  This  function  forces  truth  of  node  to  be  set  to  the  opposite  of  the  value  it  has 
when  the  function  is  called.  All  I  MS  invariants  are  maintained.  Note  that  in  tlic  TMS  with  the 
premise  controller  a  call  to  reverse-truth  normally  results  in  the  other  nodes  underlying  the 
contradiction  being  the  premises  supporting  the  reversed  value  of  the  given  node  and  therefore 
the  certainty  of  the  node  ends  up  being  the  minimum  of  the  certainty  of  these  premises. 
However  if  the  given  node  has  a  default  strength  which  is  greater  than  the  minimum  strength  of 
the  other  premises  underlying  this  contradiction,  a  problem  arises.  Specifically  the  default  value 
invariant  says  that  the  certainty  of  a  node  with  a  default  value  can  not  be  less  than  die  default 
certainty.  If  such  a  problematic  reversal  is  attempted  it  simply  will  not  "stick”  and  the  system 
will  end  up  in  much  the  same  state  that  it  started  in. 

node-try-to-show  (node  value  &optional  refutation-queues  split-nodes  (certainty  *min-ccrt*)) 

This  function  uses  a  refutation  mechanism  to  extend  the  deductive  power  of  the  TMS,  In 
the  TMS  without  the  premise  controller  the  given  node  must  be  a  TMS  node  whose  truth  is 
:unkiiAwn.  In  the  I  MS  with  the  premise  controller  eitJtcr  the  truth  of  the  given  node  must  be 
:unknown  or  the  certainty  of  the  node  must  be  less  than  the  given  certainty.  This  function 
attempts  to  prove  from  the  premises  already  in  die  I  MS  that  the  given  node  must  be  assigned 
the  given  truth  value.  In  the  1'MS  with  die  premise  controller  this  function  attempts  to  prove 
that  the  given  node  must  be  assigned  the  given  value  using  only  the  premises  of  of  certainty 
greater  than  or  equal  to  the  given  certainty.  Thus  this  function  can  be  used  to  search  for  a 
stronger  proof  of  a  truth  value  assignment  which  is  already  in  force. 

The  function  node-try-to-show  works  by  assuming  the  negation  of  the  thing  to  be  proven 
and  searching  for  a  contradiction.  It  takes  an  optional  list  of  refutation  queues  which  arc  queues 
to  be  emptied  after  the  negation  has  been  assumed.  The  assumption  of  the  negation  may  trigger 
demons  which  arc  placed  on  queues.  Running  those  demons  may  lead  to  the  deduction  of  a 
contradiction  based  on  the  assumption  which  would  otherwise  not  have  been  found.  The 
function  multi-fifo-cmpty  is  used  to  empty  the  queues  once  the  assumption  has  been  made. 

Ihc  function  node-try-to-show  also  takes  an  optional  list  of  split  nodes.  If  split  nodes  are 
provided  then  an  attempt  is  made  to  prove  that  all  assignments  of  truth  values  to  the  split  nodes 
imply  the  desired  truth  value  and  therefore  that  this  value  holds  independent  of  the  truth  of  the 
split  nodes.  This  is  done  by  actually  assigning  all  possible  combinations  of  truth  values  to  the 
split  nodes  and  for  each  such  assignment  using  the  refutation  mechanism  and  the  rqueucs  to  try 
to  show  that  the  negation  of  desired  truth  value  leads  to  a  contradiction. 

The  following  scenario  provides  an  example  of  the  use  of  this  function.  The  functions  used 
in  this  scenario  are  defined  elsewhere  in  this  manual.  For  the  following  example  it  is  important 
to  note  that  if  there  is  a  constraint  in  the  TMS  which  says  that  either  porq  must  be  true,  and  p  is 
made  false,  then  q  will  be  deduced  to  be  true.  This  is  important  when  p  is  used  as  split  node. 


(notice  (:true  (q  Tx))  •some-queue* 

(leonst  (:->  (q  7x)  (r  ?x)))) 

(assert  •(:or  (p  a)  (q  a))) 

(why  '(r  a)) 

"I  DON'T  KNOW  WHETHER  OR  HOT  (R  A)  IS  :TRUE* 

(node-try-to-show  (vlrt-tras-noda  (term  *(r  a))) 

' : true 

(list  *soffla-qusua*) 

(list  ( vlrt-tms-node  (term  '(p  a))))) 

(why  '(r  a)) 

”(R  A)  IS  ;TRUE  FROM:" 

"1  (:->  (P  A)  (R  A))  IS  :TRUE" 

"2  (:->  (0  A)  (R  A))  IS  :TRUE" 

"3  (:0R  (P  A)  (R  A))  IS  ;TRUE" 


3.5.  TMS  Noticers 


Each  node  has  three  noticcr  slots,  tnic-noticcrs,  falsc-noticcrs,  and  changc-noticers,  each  of  which 
contains  a  list  of  "noticers".  A  noticer  is  a  cons  cell  whose  car  is  a  queue  and  whose  edr  contains  an  item  to  be 
placed  on  that  queue  when  the  noticer  "triggers".  Under  certain  conditions  all  of  the  noticers  in  a  given 
noticcr  slot  will  be  triggered  and  the  noticer  slot  will  be  set  to  nil.  Ihus  a  given  noticer  in  a  given  slot  will  only 
be  triggered  once.  True  noticers  (the  cells  in  the  true-noticers  slot)  arc  triggered  whenever  the  node  becomes  \ 

true.  False  noticers  arc  triggcrca  whenever  the  node,  becomes  false  and  change  noticcis  arc  triggered 
whenever  any  change  is  made  cither  to  the  truth  or  the  certainty  of  thr  node. 

It  is  often  desirable  to  have  a  certain  demon  run  whenever  a  node  becomes  true  rather  than  just  the  iiist 
tim'*  that  node  becomes  true,  llicre  is  a  straightforward  way  of  doing  this  which  is  exemplified  by  die 
lollnwing  scenario.  When  the  below  function  notice-problem  is  applied  to  a  queue  and  a  node  it  first  checks  to 
sec  if  the  ntxle  is  true  and  if  so  it  applies  a  special  handler  to  that  node.  Independent  of  whether  or  not  the 
node  is  true  however  it  places  a  true  noticcr  on  the  node  using  the  given  queue,  lliis  noticcr  is  such  that  if  the 
node  is  ever  set  to  true  in  the  future  then  this  function  will  be  called  again  with  the  same  arguments. 


(defun  notice-problem  (queue  problem-node) 

(If  (eq  ':true  (truth  problem-node)) 

(problem-handler  problem-node)) 

(push  (cons  queue  (11st  'notice-problem  queue  problem-node)) 
(true-noticers  problem-node))) 

(notice -problem  *some-queue*  n) 
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4.  THE  EQUALITY  SYSTEM 


The  equality  system  is  a  collection  of  utilities  for  handling  the  substitution  of  equals  for  equals,  'nie 
description  of  the  equality  system  given  here  is  divided  into  three  parts.  Tlie  first  describes  terms  and  the 
interning  of  terms.  Tenns  are  analogous  to  a  l.iSP  atoms  in  that  they  arc  interned  so  that,  one  can  guarantee 
tliat  there  arc  no  two  distinct  terms  with  the  same  print  name.  Unlike  LISP  atoms  however  icnns  can  be 
cither  atomic  or  can  contain  subterms  which  can  be  substituted  for  in  tlic  equality  system.  The  second  part  of 
this  section  describes  tlic  equality  and  equivalence  class  data  structures  and  the  equality  invariants  which 
specify  the  substitution  computations.  ITic  final  part  of  this  section  describes  simplification  utilities  which 
allow  the  user  to  define  a  somewhat  arbitrary  simplicity  order  on  terms  and  then  computes  the  simplest  term 
which  can  be  equated  with  any  given  term  via  the  substitution  of  equals  for  equals. 

4.1.  Terms  and  Interning 


ferms  are  defined  as  follows: 


(defstruct  (term  (:type  : named-array)) 

(term-hash  (hash-count)) 

subterms 

parents 

eqs 

next-canonical 

eq- next- canon  leal -eqs 

class-data 

term-tms-node 

user-referenced? 

(term-ptlst  (neons  nil)) 

(term-extension  (funcatl  •make-term-extension*))) 


The  various  slots  of  this  data  structure  arc  described  below. 


term-hash  This  is  an  integer  which  is  unique  to  this  term.  This  integer  is  used  as  a  hash  value 
for  the  term. 

subterms  'lliis  slot  holds  two  basically  dilTcrcnt  kinds  of  information  depending  on  the  kind  of 
term  involved.  If  the  term  is  a  composite  term  then  this  slot  holds  a  list  of  the  subterms  of  the 
term  (a  list  of  term  data  structures).  For  example  a  term  whose  print  name  is  (f  a  b)  would  have 
subterms  whose  print  names  arc  f,  a,  and  b  respectively.  If  the  term  is  "atomic"  then  it  has  no 
subterms  and  the  subterms  slot  contains  the  print  name  of  the  term.  There  are  three  different 
kinds  of  atomic  terms.  First  of  all  there  are  symbols  whose  subtenns  slot  is  simply  a  LISP 
symbol.  Second  there  arc  numbers  whose  subterm  slot  is  a  LISP  number.  Finally  there  are 
quotations  whose  subterms  slot  contains  a  LISP  expression  whose  car  is  the  symbol  quote. 
Numbers  and  quotations  are  self-referential  terms.  This  means  that  these  terms  are  interpreted 
as  denoting  themselves.  Specifically  the  term  whose  print  name  is  the  number  1  is  taken  to 
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denote  the  number  1  and  the  term  whose  print  name  is  the  expression  (quote  (f  a))  is  taken  to 
denote  die  expression  (fiO  Self  referential  terms  play  an  important  role  in  the  equality 
invariants. 

parents  This  slot  contains  a  list  of  all  those  terms  which  contain  this  term  as  an  immediate 
subterm  (i.c.  all  Uiose  tcims  which  contain  this  tenn  in  their  subternis  slot).  ITiis  is  used  in  the 
equality  algorithms  described  in  the  next  part  of  this  section. 

cqs  ITiis  is  a  list  of  all  the  equality  data  structures  which  equate  Uiis  tcim  witli  some  other  tenn. 
riiis  slot  is  maintained  by  the  function  makc-cq  described  elsewhere. 

next-canonical  ITiis  slot  is  either  nil  or  contains  a  "more  canonical"  term.  The  function  e 
described  below  takes  a  term  t  and  returns  its  "caiionicalization"  which  is  t  if  the  next-canonical 
of  t  is  nil  and  otherwise  it  is  the  canonicali/ation  of  the  next-canonical  of  L  T  wo  terms  are 
equivalent  just  in  ease  they  have  the  same  canonicalization. 

eq-ncxt-canoiiical-cqs  ITic  cq-ncxt-canonical  of  a  term  t  is  not  nil  just  in  ease  the  next-canonical 
of  l  is  not  nil  in  which  case  the  eq-ncxt-canonical-cqs  of  t  contains  a  list  of  equality  data 
structures  which  together  imply  that  t  is  equal  to  tlic  next-canonical  of  L 

class-data  The  class-data  slot  of  a  tcrni  t  is  not  nil  whenever  there  is  some  term  s  whose 
next-canonical  is  t.  If  tlic  class-data  of  a  term  t  is  not  nil  then  it  is  a  class-data  data  structure 
which  describes  the  set  of  terms  whose  next-canonical  is  t.  The  class-data  data  structure  is 
described  in  section  3.2. 

terni-tms-nodc  This  slot  is  either  nil  or  contains  a  T'MS  node  representing  tliis  term.  If  a.TMS 
node  is  present  then  the  term  represents  an  assertion.  The  function  virt-tins-nodc  described 
below  takes  a  term  and  always  returns  a  TMS  node  representing  that  term.  For  the  equality 
invariants  to  be  maintained  it  is  important  that  all  TMS  nodes  representing  terms  be  created  via 
virt-tms-node. 

uscr-rcfcrcnccd?  This  slot  is  a  flag  which  is  non-nil  just  in  case  this  term  has  been  returned  as  a 
value  of  the  function  term  oi  die  function  tcrm-hashcons.  This  is  needed  because  the  equality 
system  creates  internal  terms  via  the  substitution  of  equals  for  equals  and  it  is  not  desirable  to 
run  demons  on  these  terms.  Specifically  the  value  of  the  variable  •new-term*  (described 
elsewhere)  is  only  applied  to  terms  which  are  returned  from  term  or  tcrm-hashcons. 

tcrm-plist  This  slot  is  perfectly  analogous  to  the  nodc-plist  slot 


term-extension  This  is  perfectly  analogous  to  the  node-extension  slot  of  TMS  nodes. 
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I  he  following  functions  and  variables  arc  relevant  to  tenns  and  interning, 
virt-tins-nodc  (term) 

lliis  function  returns  a  'I  MS  node  tliat  has  been  associated  with  the  term.  In  order  to 
maintain  certain  TMS-h'qiiality  interface  invariants  it  is  important  that  tliis  be  the  only  way  in 
which  tlic  tcnn-tnis-nodc  slot  of  tenrs  is  set 

atomic?  (term) 

Tilts  predicate  is  true  of  a  term  just  in  case  the  term  is  a  symbol,  a  number,  or  a  quotation, 
self-referential?  (term) 

This  predicate  is  true  of  a  temi  just  in  case  the  term  is  a  number  or  a  quotation, 
term-tree  (term) 

This  function  returns  the  print  name  of  the  term.  Curried  functions  arc  treated  specially 
(the  print  form  is  uncurried)  as  is  described  in  the  section  on  curried  fiinctions. 

term  (expression) 

Ihis  is  the  basic  function  for  interning  expressions  as  tc:ms.  The  expression  argument  can 
either  be  a  number,  a  symbol,  a  term,  or  an  arbitrary  expression  built  out  of  numbers  symbols 
and  terms.  If  the  expression  is  a  term  then  the  expression  is  simply  returned.  The  expression  is 
s;iid  to  be  atomic  if  it  is  a  number  or  a  symbol  or  die  car  of  the  expression  is  the  symbol  quote.  If 
the  expression  is  not  atomic  then  this  function  first  recursively  computes  the  list  of  subterms 
which  is  the  value  of  (mapear 'term  expression).  It  then  returns  the  result  of  applying 
tcrm-hashcons  (described  below)  to  this  list  of  subterms.  If  the  expression  is  atomic  then  if  there 
is  already  a  term  whose  print  name  is  the  expression  then  that  term  is  returned.  If  there  is  not 
already  such  a  term  then  one  is  created  and  returned.  'The  value  of  the  variable  *new-term*  is 
applied  to  all  terms  created  in  this  way.  'This  function  maintains  all  of  the  equality  invariants 
described  later. 

tcrm-hashcons  (subterms) 

.This  function  takes  a  list  of  subterms  and  returns  a  term  corresponding  to  that  list  of 
subterms.  This  function  first  applies  the  value  of  the  variable  *intem-canonicaIize*  (described 
below)  to  the  list  of  subterms.  The  value  of  *intem-caiionicalize*  must  be  a  function  which 
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returns  citJicr  a  term  or  a  list  of  subtemis.  If  a  term  is  returned  then  that  term  is  simply  returned 
from  tcrm-hashcons.  If  a  list  of  subterms  is  returned  then  this  function  looks  for  an  ah'eady 
existing  term  which  has  this  list  of  subterms  in  its  subterms  slot  (a  hash  table  is  used  here  for 
efficiency).  If  such  a  term  exists  it  is  returned.  If  no  such  term  exists  one  is  created  and  returned. 
'Pile  value  of  the  variable  ♦newterm*  is  applied  to  all  terms  created  in  this  way.  'Fhis  function 
maintains  .ill  equality  invariants. 

*iiUern-canonicalize*  variable 

This  variable  must  be  bound  to  a  ftinction  which  takes  a  list  of  terms  and  returns  either  a 
term  or  a  list  of  terms.  ITiis  is  used  to  map  different  expressions  for  the  same  thing  into  identical 
term  strucliires  directly  in  tlic  interning  process.  For  example  if  a  function  f  is  known  a-priori  to 
be  an  a  commutative  function  then  the  expression  (fa  b)  must  denote  die  same  thing  as  the 
expression  (f  b  a).  Ihe  default  value  of  *intcm-canonicalize*  is  intem-canfliiicalizc-default  which 
is  described  below. 

intcrn-canonicali/.c-default  (subterms) 

Terms  representing  hinctions  of  two  arguments  can  be  marked  as  being  either  associaUve, 
commutative,  or  both  (see  the  m^ros  asswhthc?  and  comroutalive?  defined  below).  For 
example  the  term  whose  print  name  is  +  is  marked  as  both  associative  and  commutative.  The 
function  intem-caiionicalize-dcfault  takes  a  list'of  subterms  the  first  of  which  is  a  term 
representing  an  operator  (function  or  predicate).  If  the  operator  term  is  not  marked  as  being 
cither  associative  or  commutative  then  the  list  of  subterms  is  simply  returned  by 
intcrn-caiionicali/.c-default.  If  the  operator  term  is  marked  as  associative  then  the  argument 
subterms  are  searched  for  an  application  of  that  same  operator  and  if  one  is  found  the 
arguments  in  that  application  arc  promoted  to  top  level  arguments.  For  example  if  f  is  marked  as 
an  assixiativc  operator  then  (f  a  (f  b  c))  is  converted  to  (f  a  b  c).  Since  f  is  binary  (only  binary 
functions  should  be  marked  as  associative  or  commutative)  the  term  (f  a  b  c)  is  interpreted  by 
conxention  as  (f  (f  a  b)  c).  After  the  promotion  of  "intemal''  arguments  for  associative  operators 
this  hinction  checks  to  sec  if  the  operator  is  marked  as  commutative.  If  so  then  the  arguments 
arc  sorted  by  their  term-hash  slots.  Finally  the  resulting  list  of  subterms  (including  the  operator 
term)  is  returned  from  intcrn'canonicalizc-dcfauit. 
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associative?  (op-term) 

lliis  is  a  macro  which  expands  as  follows: 

(associative?  op-tenn)  =  =>  (get  (terin-plist  op-term)  ’associative?) 
To  mark  an  operator  term  as  ass«Kiativc  one  simply  evaluates: 

(self  (associative?  op-term)  t) 


commutative?  (op-term) 

I'his  macro  is  just  like  associative?. 

•new-term*  variable 

ITic  value  of  this  variable  must  be  a  function  which  is  applied  exactly  once  to  every  term 
which  is  ever  returned  from  term  or  tcrm-liashcons.  fhe  default  value  of  this  variable  is 
new-term-dcfault.  1-or  the  symbols  =,  ->,  and,  or.  etc.  to  be  given  the  proper  interpretations  in 
the  top  level  RUP  environment  the  function  new-tcmi-default  should  be  called  on  all  terms 
returned  from  term-hashcons.  Ihus  any  function  which  the  user  assigns  to  •new-term  should 
call  ncw-tcrm-dcfault  on  its  argument  if  the  standard  interpretation  of  the  above  symbols  is 
desired. 

ncw-tcrm-dcfault  (new-term) 

This  is  the  default  value  of  the  variable  •new-term*.  The  function  ncw-tcrm-dcfault  queues 
applications  of  hashcons  noticers.  Hashcons  noticers  are  functions  which  arc  associated  with  an 
operator  term  and  a  queue.  When  ncw-tcrm-dcfault  is  applied  to  a  term  u  it  checks  the  first 
subterm  of  u  (u's  operator)  to  sec  if  there  arc  any  hashcons  noticers  associated  with  that  operator 
(if  the  given  new-term  is  atomic  then  ncw-tcrm-dcfault  does  nothing).  For  each  such  noticer  an 
application  of  that  noticer  to  u  is  placed  on  the  queue  associated  with  the  noticer.  Noticers  are 
stored  on  the  hashcons-noticcr  property  of  operator  terms.  Whenever  ncw-tcrm-dcfault  is 
applied  to  a  non-atomic  term  u  the  term  u  is  added  to  the  applications  property  of  the  qverator 
ofu. 
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add-hashcons-noliccr  (op-tcrm  noticcr  queue) 

lliis  function  associates  the  given  noticcr  (which  must  be  a  function  of  one  argument)  with 
the  given  op-term  and  the  given  queue.  This  function  queues  applications  of  the  given  noticer  to 
all  currently  existing  applications  of  the  given  op-term. 

h:  shcons-noticers  (op-tcrm) 

litis  is  a  macro  which  expands  as  follows: 

(hashcons-noticers  op-tcrm)  =  =>  (gel  (ierm-plist  op-tcrm)  ‘hashcons-noticers) 


applications 


This  is  a  macro  which  expands  as  follows: 

(applications  op-tcrm)  =  =>  (get  (tcrm-plist  op-tcrm)  'applications) 


4.2.  Equalities.  Equivalence  Classes,  and  (he  Equality  Invariants 

lire  equality  system  maintains  a  congruence  relation  on  terms.  The  following  function  can  be  used  to 
determine  whether  or  not  two  terms  arc  congruent  under  this  relation. 


c  (term) 


lliis  function  is  defined  as  follows: 


(defun  e  (term) 

(If  (next-canonical  tern) 

(e  (next-canonical  term)) 
term)) 

Two  terms  arc  congruent  just  in  case  they  have  the  same  image  under  e. 


Che  following  defines  one  of  the  basic  data  types  in  the  equality  system. 


(defstruct  (equality  (;type  : named- array)) 
terml 
tarmZ 

dependants 

eq-node) 

Ihc  slots  of  the  equality  data  structure  are  described  below. 


terml,  terr>i2  These  slots  conuin  the  terms  equated  by  the  equality. 
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dependents  ITiis  slut  contains  the  list  of  all  terms  which  contain  the  equality  in  their 
eq-next-canonical'eqs  slot. 

eq-node  'Phis  slot  holds  the  tms  node  which  represents  Uic  equality. 

'Hie  equality  system  is  driven  by  changes  in  the  truth  values  of  the  I  MS  nodes  associated  with  equalities. 
Picreforc  die  only  interesting  top  level  functions  for  the  equality  system  arc  for  querying  the  data  structures 
involved. 

I  makc-cq  (tcrml  tcrm2  tms-nodc) 

lliis  function  should  be  used  uniformly  instead  of  the  make-equality  macro  constructed  by 
dcfstnict.  This  function  creates  an  equality  data  structure  and  sets  the  terml,  tciin2,  and  eq-node 
slots  of  that  structure  to  the  arguments  provided.  It  also  updates  the  eqs  slot  of  both  terms. 

Finally  it  places  a  change  noticer  on  the  given  tms-node  which  will  arc  needed  to  ensure  the 
equality  invariants. 

true-eq?  (equality) 

This  macro  expands  as  follows: 

(true-eq?  equality)  =  =  >  (cq  ’:truc  (truth  (eq-node  equality))) 
equated-support  (tcrml  tcrm2) 

) 

If  tcrml  and  tcrm2  arc  not  in  the  same  equivalence  class  then  this  function  returns  nil.  If 
tcrml  and  tcrm2  arc  in  the  same  equivalence  class  then  this  function  returns  a  list  of  PMS  nodes 
which  represent  equalities  implying  the  equivalence  of  tcrml  and  term2. 

same-image?  (tcrml  term2) 

I  'This  predicate  is  non-nil  just  in  ease  tcrml  and  tcrm2  have  the  same  number  of  subterms 

and  those  subterms  are  equivalent  in  pairs. 

class-members  (term) 

'This  hmetion  returns  a  list  of  all  terms  which  arc  congruent  to  the  given  term  (all  interned 
terms  that  is). 
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equivalents  (term) 

This  function  returns  a  list  of  terms  in  the  equivalence  class  of  term  such  that  no  two  terms 
in  that  class  have  the  same  image  (i.c.  their  subterms  arc  equivalent  in  pairs).  Thus  the  list  of 
terms  returned  is  the  set  of  "independent'*  terms  equivalent  to  term. 

A  term  u  is  said  to  point  to  a  term  t  just  in  case  either  t  is  the  ncxt-canonical  of  u  or  in  case  the 
nc'Xt'canonical  of  u  points  to  L  A  class*data  data  structure  c  is  always  contained  in  the  class-data  slot  of 
exactly  one  term  t  called  the  owner  of  c.  If  c  is  the  class-data  of  t  then  c  describes  the  set  of  terms  which  point 
to  t.  Iliis  data  structure  is  defined  as  follows: 

(defstruct  (clats-data) 
membera 

manbar-rafaranta 
(alza  1) 

(c1ass-p11st  (ncona  n11))) 
lltc  sluts  of  these  structures  have  die  following  functions: 

niciiibcrs  The  members  slot  of  c  is  a  list  of  terms  whose  ncxt-canonical  is  the  owning  term  t  of  c. 

Note  that  this  is  a  subset  of  all  the  terms  which  point  to  L 

meinbcr-rcfcrents  llic  mcniber-rcfcrcnts  slot  of  c  contains  a  list  of  all  scl'*  referential  terms 
which  point  to  the  owner  of  c. 

sire  Ilic  sire  of  c  is  one  plus  the  number  of  terms  which  point  to  the  owner  of  c. 

class'plist  This  slot  is  analogous  to  the  nodc-plist  slot  of  TMS  nodes  and  the  tcrm-plist  slot  of 
terms. 

Ihc  following  are  the  Fx^uality  Invariants.  These  invariants  are  associated  with  the  queue 
*cqualily-invariants*  and  arc  only  guaranteed  in  environments  in  which  this  queue  has  been  emptied. 

Equality  Justification  invariant:  For  any  term  t  with  a  non-null  ncxt-canonical  slot  the  set  of 

f 

equalities  in  the  cq-next-canonical-eqs  slot  of  t  are  all  true  equalities  (the  truth  of  their  cq-nodes 
is  :truc)  and  this  set  of  equalities  implies  that  the  u  is  equal  to  the  ncxt-canonical  of  u. 

Congruence  Deduction  Invariant:  For  any  term  t  let  subterm-imageft)  be  the  term  which  results 
from  replacing  each  subterm  u  of  t  by  e(u)  (if  t  is  atomic  then  subtcrm-imagc(t)  is  just  1).  The 
congruence  invariant  is  that  for  every  term  t,  subterm-imagc(t)  is  an  interned  term  which  is  in 
the  equivalence  class  of  L  'Iliis  invariant  implies  that  any  two  terms  whose  subterms  are 
equivalent  in  pairs  are  themselves  equivalent  It  also  implies  that  any  two  terms  which  can  be 
shown  equivalent  via  the  substitution  of  equals  for  equals  are  in  fact  equivalent.  For  efHciency 


/r.' 
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reasons  this  invariant  is  not  maintained  on  terms  which  arc  applications  of  =,  or,  ->,  and,  not, 
and  iff.  Instead  the  I  MS  can  be  used  in  conjunction  with  refutation  to  show  any  derivable 
logical  equivalences  between  these  terms. 

I'rue  Equality  Deduction  Invariant:  'ilie  terms  of  any  true  equality  arc  both  in  the  same 
equivalence  class. 

Derived  tlquality  Deduction  Invariant:  Let  e  be  any  equality  such  that  the  terms  of  e  are  both  in 
the  same  equivalence  class,  lliere  is  a  clause  in  the  I'MS  which  states  that  some  set  of  true 
equalities  imply  c.  Thus  if  c  is  :falsc  there  is  a  contradiction  in  the  i’MS,  and  if  e  is  not  :false  it 
must  be  :true  (as  opposed  to  unknown). 

Assertional  I'cnn  Invariant:  Let  t  be  any  assertional  term  (a  term  with  a  term-tms-node).  If  thas 
a  next-canonical  tlien  the  next-canonical  of  t  is  also  an  assertional  term  and  there  arc  clauses  in 
the  TMS  which  state  that  the  eq-next-canonical-eqs  of  t  imply  the  equivalence  of  the 
term-tms-node  of  t  and  the  term-tnis-node  of  the  next-canonical  of  L  This  invariant  ensures  that 
any  two  assertional  terms  which  arc  in  the  same  equivalence  class  arc  constrained  to  be  logically 
equivalent 

*equafe-statc*  variable 

This  variable  is  set  to  a  new  value  each  time  the  congruence  relation  on  terms  is  changed. 

This  is  useful  for  niemoizing  computations  which  depend  on  the  congruence  relations.  A 
memoized  value  is  valid  as  long  as  *cquate-statc*  has  the  same  value  that  it  had  when  the 
memoization  was  done. 

4.3.  Simplification 

The  functions  described  here  allow  the  user  to  define  a  simplicity  order  on  terms  and  then  efficiently 
simplify  terms.  Specifically  let  u  be  some  term.  The  functions  described  compute  a  tenn  which  is  at  least  as 
simple  under  the  user  defined  order  as  any  term  which  can  be  equated  with  u  via  the  substitution  of  equals  fmr 
equals  based  on  (he  premise  equalities.  For  exmnple  suppose  one  has  the  function  symbol  -t-  which  iilo  be 
interpreted  as  standard  addition  over  the  integers  and  consider  a  term  of  the  form  (+  (-f  x  y)  a).  If  this  term 
could  with  a  term  composed  entirely  of  numerals  and  the  function  symbol  +  then  that  term  could  be 
"evaluated"  to  yield  a  numeral  equivalent  to  the  original  term.  The  problem  of  finding  an  expression  for  a 
given  term  in  terms  of  some  subset  of  "allowed”  terms  can  be  solved  by  defining  a  simplicity  order  in  which 
terms  containing  only  allowed  symbols  ate  simpler  than  terms  containing  symbols  which  are  not  allowed. 

A  simplicity  order  is  defined  by  setting  the  following  three  variables  to  appropriate  fonctions. 
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*a(omic*lcvcl*  variable  bound  to  function  with  argument  list:  (atomk-tenn) 

lliis  variable  must  be  bound  to  a  function  which  takes  an  atomk  term  and  returns  a 
“level".  Levels  can  be  any  data  structures  so  long  as  they  arc  consistent  with  (he  values  of  the 
next  two  variables.  The  default  value  of  this  function  is  atomic-lcvcl-dcfault  described  below. 

'Hie  default  levels  arc  integers. 

*subtcrm-lcvcl*  variable  bound  to  function  with  argument  list:  (subtcrm-levels) 

Ibis  variable  must  be  bound  to  a  function  which  takes  a  list  of  levels  and  returns  a  level 
which  is  the  level  of  any  term  whose  subterms  have  the  corresponding  levels.  Hie  default  value 
of  tliis  variable  is  subtcrni-lcvcl-default  which  simply  computes  the  maximum  of  the  subterm 
levels. 

♦smaller?*  (Icvell  level!) 

Ibis  variable  must  be  bound  to  a  predicate  which  lakes  two  levels  and  returns  a  non-nil 
value  just  in  ease  tlic  first  level  is  "smaller"  (i.c.  simpler)  than  ihe  second.  Ibc  default  value  of 
this  function  is  tlie  lisp  less  than  function  <. 

1bc  termination  and  correctness  of  the  simplification  procedures  depend  on  some  assumptions  about 
the  simplicity  order.  These  assumptions  are  as  follows: 

Well  Foundedness  Assumption:  There  can  be  no  infinitely  decreasing  chains  of  levels. 

Monotonicity  Assumption:  Let  s  and  t  be  any  two  terms  with  the  same  number  of  subterms 
such  that  s  is  simpler  than  t  (has  a  smaller  level).  There  must  be  some  pair  of  corresponding 
subterms  s'  and  t'  of  s  and  t  respectively  such  that  s'  is  simpler  that  t'.  In  other  words  the 
function  bound  to  *subtcrm-levcl  must  be  non-decreasing  in  each  sublevel  argument 

Subterm  Simplicity  Assumption:  No  term  can  be  simpler  than  a  teim  it  contains  as  a  subterm. 

Pseudo  Total  Order  Assumption  Let  and  I2  be  any  two  levels  such  that  Ij  is  less  than  I2.  No 
third  level  I3  can  be  unrelated  to  both  and  I2  (i.e.  I3  must  be  either  smaller  or  greater  than 
either  l|  or  12). 

new-simplincation'state  0 

Ibis  function  of  no  arguments  must  be  called  each  time  the  user  changes  the  simplification 
order. 
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atiMiiic-levcI-dcfault  (atomic-term) 

'Phis  function  is  the  default  value  of  •atomic-level*.  It  takes  an  atomic  term  and  returns  a 
non-negative  integer.  If  die  term  has  an  atomic-level  property  then  the  value  of  this  property  is 
returned.  Otherwise  the  number  returned  is  0  for  self  referential  terms  and  1000  for  all  other 
atomic  terms. 

atomic-levcl-prop  (term) 

lliis  is  a  macro  with  the  following  expansion  property: 

(atomic-levcl-prop  term)  =  =>  (get  (term-plist  term)  'atomic-level) 

Thus  to  set  the  atomic  level  of  a  term  one  simply  evaluates: 

(self  (atomic-levcl-prop  term)  n) 

However  whenever  this  is  done  the  function  ncw-sinipliflcation-statc  should  be  called, 
sbound  (term) 

This  function  takes  a  term  and  returns  an  expression  which  is  the  print  name  of  a  term  (not 
necessarily  an  interned  term)  which  is  at  least  as  simple  as  any  term  which  can  be  equated  with 
the  argument  via  the  substitution  of  equals  for  equals  using  the  premise  equalities! 
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5.  THE  TOP  LEVEL  RUP  ENVIRONMENT 

The  top  level  RUP  environment  provides  several  convenient  user  level  functions  such  as  assert,  retract, 
and  why  each  of  which  takes  expressions  and  converts  them  to  asscrtional  terms.  Demons  which  uigger  on  the 
creation  of  terms  arc  used  to  provide  automatic  interpretations  for  the  logical  operators,  =.  :*>,  rand,  :or,  rnot, 
and  riff.  Ilicrc  is  also  a  macro  which  converts  logical  constraints  represented  as  a  sentence  of  propositional 
logic  and  converts  it  to  an  equivalent  set  of  applications  of  add-clausc.  Ilicre  arc  alsr^  mechanisms  for  saving 
partial  RUP  environments  so  that  one  can  return  to  a  known  state  during  debugging. 

5.1.  Top  Level  Functions 

assert  (exp  &optional  (certainty  *max-cert*)) 

This  function  first  computes  the  term  whose  print  name  is  exp  and  then  calls  vitt*tins*nodc 
to  get  a  I  MS  node  asstKiated  with  this  term.  If  the  TMS  without  the  premise  controller  is  being 
used  then  die  function  make-premise  is  called  on  the  I'MS  node  and  die  truth  value  rtruc.  If  the 
I'MS  with  the  premise  controller  is  being  used  then  the  function  set-default  is  called  on  the 
node,  the  truth  value  :truc  and  the  the  certainty  argument  to  assert  (note  that  the  default 
certainty  is  *max-ccrt*).  Finally  this  function  applies  multi-fifo-empty  to  the  value  of 
*l»nsic-qucucs*, 

retract  (exp) 

This  function  first  finds  the  TMS  node  associated  with  the  term  whose  print  name  is  exp.  It 
then  cither  calls  rctract-premisc  or  remove-default  on  that  node  depending  on  which  TMS  is 
being  used.  Iliis  function  applies  multi-fifo-empty  to  the  value  of  *basic-qucues*. 

= -noticcr  (cq-term)  noticer  for  =  on  queue  *cquality-invariBnts* 

This  function  is  an  intern  noticer  for  applications  of  = .  Since  cq-tenn  is  an  application  of 
=  the  second  and  third  subterms  of  eq-term  are  the  equated  terms.  The  function  virt-tms-node 
is  called  to  get  a  TMS  node  representing  eq-term  and  the  function  make-equality  is  applied  to 
the  equated  terms  and  the  TMS  node. 

->noticcr  (implication-tcim)  noticer  for  :->  on  queue  *rup-top-level* 

This  function  is  an  intern  noticer  for  applications  of  :->.  This  function  adds  clauses  to  the 
TMS  which  ensure  that  the  symbol  :->  is  interpreted  as  logical  implication.  For  each 
implication  of  the  form  (:■>  p  q)  the  following  clauses  are  added:  (each  of  the  below  clauses  is 
written  as  a  list  of  disjuncts. 
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(((;->  p  q)  .  :fa1se)  (p  .  :fa1sa)  (q  .  :truo)) 

((p  .  ;true)  (( :->  p  q)  .  :trua)) 

((q  .  :fa1se)  ((:->  p  q)  .  :true)) 

ITicsc  clauses  relate  three  TMS  nodes:  the  node  representing  an  implication  (:•>  p  q),  the 
node  representing  the  antecedent  p,  and  the  node  representing  the  consequent  q.  ITie  best  way 
to  linnk  about  tliese  clauses  is  that  they  force  the  TMS  to  make  all  possible  deductions 
concerning  tltcse  tliree  nodes.  For  example  if  tlic  implication  and  the  antecedent  are  true  then 
the  consequent  will  be  deduced  via  the  first  of  the  above  clauses.  If  the  antecedent  is  true  and 
the  consequent  is  false  then  that  same  clause  is  used  to  deduce  that  the  implication  must  be 
false.  If  the  antecedent  is  false  then  the  second  clause  can  be  used  to  deduce  that  the 
implication,  and  so  on. 

not-noticcr  (negation-term)  noticer  for  not  on  queue  *rup-top-lcvcI* 

lliis  function  is  an  intern  noticer  for  applications  of  not.  For  each  negation  of  the  form 
(:not  p)  die  following  clauses  arc  added: 

(((:not  p)  .  ;true)  (p  .  :fa1se)) 

(((:not  p)  .  :fa1se)  (p  .  :true)) 


or- noticer  (disjunction-term)  noticer  for  or  on  queue  •rup-top-lcvcl* 


lliis  function  is  an  intern  noticer  for  applications  of  or.  A  disjunction  term  can  have  an 
arbitrary  number  of  disjuncts.  For  each  disjunction  of  the  form  (:or  p  q ...)  the  following  clauses 
are  added: 


(((;or  p  q  ...)  .  :falie)  (p  .  :tru*)  (q  .  :tPue)  ...) 

(((:or  p  q  ...)  .  :trua)  (p  .  :fa1s«)) 

(((:or  p  q  ...)  .  :true)  (q  .  ifaUe)) 


and-noticcr  (conjunction-term)  noticer  for  and  on  queue  *rup-top-level* 


For  each  conjunction  of  the  form  (:and  p  q ...)  the  following  clauses  are  added: 


(((land  p  q  ...)  .  :trut)  (p  .  ;false)  (q  .  cfalta)  ...} 
(((:and  p  q  ...)  .  rfalia)  (p  .  ;trua)} 

(((:Bnd  p  q  ...)  .  :fa1ia)  (q  .  :trua)) 
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ilT-noticer  (log-eq-tcrm)  noticcr  for  Iff  on  queue  •nip-top'levcl* 


lliis  function  is  an  intern  noticer  for  applications  of  iff.  This  function  adds  clauses  to  the 
TMS  which  constrain  the  truth  of  the  TMS  node  associated  with  the  logical  equivalence  term  to 
be  the  appropriate  function  of  the  truth  values  of  the  TMS  nodes  assiciated  with  the 
cquivaicnccd  terms.  For  each  logical  equivalence  of  the  form  (riff  p  q)  the  following  clauses  are 
added: 

p  q)  .  tfaUa)  (p  .  tfalta)  (q  .  :trua)) 

p  q)  .  :fa1*a)  (p  .  :trua)  (q  .  :faUa)) 

(((:1ff  p  q)  .  :trua)  (p  .  ttrua)  (q  .  :trua)) 

(({••Iff  p  q)  .  ;trua)  (p  .  .-falsa)  (q  .  .-falsa)) 


wh)  (exp) 


If  exp  is  a  number  then  this  function  simply  calls  nodc*why  on  that  number.  Otherwise  this 
function  gets  the  1'MS  node  associated  with  die  term  whose  print  name  is  exp,  then  applies 
niulti-fifo-cmpty  to  *basic-qucues,  then  calls  node-why  on  that  node.  Ihe  following  is  a  typical 
top  level  K  UP  scenario. 


(assert  p  q)) 

(assert  '(:->  q  r)) 
(assert  'p) 

(why  'r) 

"R  IS  -.TRUE  FROM:" 

"1  0  IS  .-TRUE" 

”2  (:->  Q  R)  IS  :TRUE" 


(why  1) 

"0  IS  :TRUE  FROM:" 

"1  P  IS  :rRUE* 

"2  (:->  P  0)  IS  -.TRUE" 

(why  I) 

"P  IS  :TRUE  AS  A  PREMISE" 
(why  0) 

"0  IS  :TRUE  FROM:" 

"1  P  IS  :TRUE" 

"2  (:->  P  0)  IS  :TRUE" 


(why  0) 

"R  IS  :rRUE  FROM:" 

"1  0  IS  :TRUE" 

”2  (:->  0  S)  IS  :TRUE" 


(why  2) 

"(;->  Q  R)  IS  .-TRUE  AS  A  PREMISE 
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trj-to-show  (exp  &optional  rqucucs  snodcs  (certainly  ‘min-cert*)) 


A  call  to  this  function  is  equivalent  to: 


(node-try- tO'show  (virt-tnis-nodc  (term  exp))  '.‘true  rqueucs  snodes  certainty) 

riic  following  scenario  uses  this  function. 

(assert  '( ;->  p  r)) 

( assert  ’ ( : ->  q  r)) 

(assert  '( ;or  p  q)) 

(why  ’r) 

"I  DON'T  KNOW  WHETHER  OR  NOT  R  IS  TRUE* 

(try-to-show  'r) 


(why  'r) 

"R  IS  :TRUE  FROM:” 

"1  (;->  P  R)  IS  .-TRUE" 
"2  ( :->  0  R)  IS  :TRU£" 
"3  (;0R  P  Q)  IS  :TRUE” 


wliat-is  (exp) 


1his  function  is  defined  as  follows: 


(defun  what-1s  (<^xp) 
(sbound  (term  exp))) 


Hhy-is(cxp) 


This  function  is  defined  as  follows: 


(defun  why-ls  (exp) 

(why  '(■  ,exp  .(sbound  (term  exp))))) 


termq  (exp) 


This  macro  is  very  much  like  backquote  in  LISP.  If  exp  contains  no  "special"  symbols 
then  this  macro  takes  an  expression  and  macroexpand  to  a  form  which  will  evaluate  to  the  term 
whose  print  name  is  that  expression.  Special  symbols  are  those  which  start  with  either  "?"  or  "1”. 
It  is  assumed  that  symbols  starting  with  ”?"  will  be  bound  to  terms  at  eval  time  and  that  symbols 
starting  with  "!"  will  be  bound  to  lists  of  terms.  The  following  are  examples  of  macroexpansions 
of  this  form: 
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(termq  (fa)) 

(termq  (f  7a)) 
(termq  (g  .  large)) 


•“>  (teria  ‘(f  a)) 

■■>  (terai-hashcons  (list  (terai  ’f)  7a)) 
•■>  (tarn-hashcons  (cons  (term  ‘g)  largs)) 


Iconst  (exp) 


This  is  a  very  useful  macro  for  adding  clauses  in  the  TMS.  This  macro  takes  a  logical 
expression  and  macroexpands  to  a  set  of  add-clauscs  representing  that  expression.  This  macro 
treats  symbols  starting  with  "?“  or  “I"  in  much  the  same  as  docs  temiq.  The  following  is  a  list  of 
sample  macroexpansions: 


(Iconst  (;->  (;and  pi  p2  p3)  r)) 

•■>(add-c1ause  (11st  (cons  ( virt-tms-noda  (term  'pi))  ':fa1se) 

(cons  ( virt-tms-node  (term  ‘pZ))  ';fa1ae) 

(cons  (virt-tms-node  (term  *p3))  ':fa1se) 

(cons  (virt-tms-node  (term  'r))  ';true))) 

(Iconst  (:->  (;and  (forall  (x)  (:->  (p  x)  (q  x))) 

(P  ?•)) 

(q  7a))) 

••>( add-clause  (11st  (cons  (virt-tms-node 

(term  '(forall  (x)  (:->  (p  x)  (q  x))))) 

':fa1se) 

(cons  (virt-tms-node 

(term-hashcons  (list  (term  'p)  7a))) 

'  :fa1sa) 

(cons  (virt-tms-node 

(term-hashcons  (list  (term  'q)  7a))) 

• :true))) 

( 1  const  ( : Iff  p  q) ) 

••>(progn 

(add-clause  (list  (cons  (virt-tms-node  (term  ’p))  ';fa1so) 

(cons  (virt-tms-node  (term  ’q))  ';true))) 

(add-clause  (list  (cons  (virt-tms-node  (term  'p))  ':true) 

(cons  (virt-tms-node  (term  'q))  ';fa1se)))) 

Note  that  (Iconst  (:■>  p  q))  is  different  from  (assert  (:->  p  q))  in  that  the  former  does  not 
create  a  term  or  a  uns  node  representing  (:•>  p  q)  but  instead  simply  installs  a  clause  in  the  TMS, 
while  the  latter  creates  a  term  and  a  TMS  node  representing  (:*>  p  q)  and  then  asserts  that  that 
TMS  node  is  true. 


assertq,  rctractq.  whyq,  try-to-showq,  what-isq,  why-bq 


lliesc  macros  arc  just  like  assert,  retract,  etc.  except  that  they  use  termq  to  quote  there 
arguments.  Ihus  (assertq  p)  is  just  like  (assert  (termq  p)). 
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5.2.  Initialization 

When  trying  to  debug  code  which  interacts  with  the  utilities  in  RUP  it  is  easy  to  become  confused  about 
the  current  state  of  die  RUP  environment.  It  would  be  nice  to  be  able  to  save  the  suite  of  tlie  RUP 
environment  at  some  point  and  be  able  to  return  to  tltat  state  at  some  latter  point.  This  section  describes  some 
features  of  RUP  which  approximate  tliis  behavior. 

tenn-init  0 


riiis  function  of  no  arguments  flushes  all  existing  terms  so  that  any  term  which  is 
subsequently  returned  from  either  the  function  term  or  the  function  tcnn-hashcons  is  a 
completely  new  data  structure.  This  has  serious  ramifications  for  the  RUP  environment.  It 
means  that  there  arc  no  longer  any  noticers  attached  to  any  accessible  operator  terms  (since 
those  terms  arc  new  structures  and  have  no  noticers  attached).  It  means  that  the  simpliflcation 
properties  attached  to  terms  have  been  effectively  flushed.  It  means  that  tlic  commutative  and 
asscKialivc  properties  of  operator  terms  have  been  flushed. 

*periii-init-forins*  variable 

Ihis  variable  is  bound  to  a  list  of  LISP  expressions  which  get  evaluated  when  RUP  is 
initialized  and  thus  the  forms  on  this  list  determine  the  state  of  RUP  which  results  from  an 
initialization.  This  is  the  mechanism  provided  by  RUP  for  "saving"  or  "defining"  RUP 
environments.  The  default  value  of  *pcrin-init-forms*  is  a  list  of  forms  which  restore  the  default 
RUP  environment.  The  forms  in  *pcnn-init-forms  get  evaluated  in  the  reverse  of  the  order  in 
which  they  appear.  Thus  the  last  thing  pushed  onto  the  list  is  the  last  thing  evaluated  during 
initialization.  It  is  important  that  any  forms  which  change  the  intern  canonicalization  process 
arc  evaluated  before  the  interning  of  any  term  affected  by  that  change.  For  example  it  is 
important  that  the  term  for  =  be  marked  as  commutative  before  any  applications  of  that  term 
arc  interned. 

*tcmp-init-foiins*  variable 

This  variable  is  just  like  *pcrm-init-fonns*  except  that  its  default  value  is  nil.  The  intended 
use  of  this  variable  is  described  in  the  below  documentation  of  the  functions  fix-temps  and 
rap-init. 
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fix-temps  0 

This  function  of  no  arguments  is  defined  as  follows: 

(defun  fix-temps 

(setq  •perm-lnit-forms*  (append  •temp-lnlt-forms*  •perm-lnlt-formi*)) 

(setq  •temp-lnlt-forms*  nit)) 

The  basic  philosophy  behind  this  function  is  that  as  one  develops  a  RUP  environment  one 
can  push  forms  onto  *tcmp-init-rorms*  which  will  to  some  extent  recreate  the  environment 
being  developed.  'Ilicn  when  one  wishes  to  store  that  environment  so  that  it  will  be 
reconstructed  after  an  initialization  one  calls  the  function  fix-temps. 

rup-init  (&optional  save-flag) 

Ibis  function  calls  term-init,  and  evaluates  the  forms  in  *pcnn-init-fonns*  in  the  reverse  of 
die  order  in  which  they  appear  on  the  list  (i.e.  the  forms  arc  evaluated  in  the  order  in  which  they 
were  placed  on  the  list).  Finally  if  the  save-flag  argument  is  not  nil  it  evaluates  the  forms  on 
*temp-init-rorms*  in  reverse  order.  If  the  save  flag  is  nil  tlicn  it  sets  *tcinp-init-fonns*  to  nil. 
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6.  THE  NOTICE  MACRO 


'I1iis  section  describes  a  macro  which  is  used  to  define  demons  which  trigger  on  certain  events  in  the 
R  UP  environment 


notice  ((event  pattern)  queue  &rcst  body-forms) 


The  notice  macro  defines  demons  which  arc  queued  when  certain  events  take  place  in  the 
RUP  environment.  The  event  argument  must  be  one  of  several  meaningful  keywords  and  the 
pattern  argument  is  an  expression  which  may  contain  "variables”  which  arc  symbols  starting 
with  either  "?"  or  "I".  The  queue  argument  must  be  a  form  which  evaluates  to  a  queue  and  the 
body-forms  can  be  any  lisp  expressions  to  be  evaluated  when  the  demon  runs  (i.c.  they  are  the 
body  of  the  demon).  Ilie  details  of  the  notice  macro  are  best  described  through  examples. 
Initially  only  the  keyword  :intcrn  will  be  considered. 

6.1.  C  reating  Intern  Noticers 


When  an  application  of  notice  is  macroexpanded  two  function  definitions  are  created  by  side  effect  and 
die  notice  form  macroexpands  to  an  application  of  add-hashcons-noticer.  The  function  definitions  must  be 
explicitly  evaluated  using  die  macro  includc-cnd-foims.  Consider  the  following  example: 


(notice  (: Intern  (p  7a))  *user-queue* 
(Iconst  (->  (p  7a)  (q  7a)))) 

( include-end-forma) 

'Phis  macroexpands  to; 


(progn  (add-hashcons-noticar  (term  'p)  '|(P  7A)-UNIFIER|  *uaer*queue*) 

(push  '(add-hashcons-noticer  (term  'p)  ’|(P  7A)-UNIFIER|  *user-queue*) 
•temp- ini t-forms*)) 


(progn  'compile 

(dafun  |(P  7A)-UNIFIER|  (tern) 

(let  ((ergs  (edr  (subtarms  term)))) 

(if  ergs 

(1at  ((7a  (car  arga))) 

(if  (null  (edr  arga)) 

(((P  7A)-B00Y|  7i)))))) 

(defun  |(P  7A)-B0DY|  (7a) 

(add-c1ausa  (list  (cons  (vlrt-tma-noda 

(tarm-hashcona  (Hat  (tarm  ’p)  7a))) 
'  :fa1aa) 

(cona  (virt-tma-noda 

(tarm-haaheona  (Hat  (tarn  'q)  Ta))) 
•:trua))))) 
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In  the  above  expansion  the  notice  form  macroexpands  into  a  progn  which  both  installs  a  symbol  as  a 
noticer  and  pushes  a  form  onto  *tcmp*init*fonns*  (*tcmp'init‘forms*  can  be  used  to  re-create  a  RUP 
environment  during  initialization  as  is  described  elsewhere).  Because  the  demons  created  by  notice  are 
implemented  as  intern  noticers  associated  with  operator  terms  it  is  important  that  the  car  of  the  pattern  not 
contain  variables  to  be  bound  during  the  triggering  process.  The  form  (includc-cnd-forms)  macroexpands  into 
a  list  of  function  definitions.  The  first  function  defined  in  the  above  example  takes  the  term  and  performs  the 
unification  of  the  term  and  the  pattern,  lire  second  function  takes  the  bindings  derived  from  this  unification 
ard  executes  the  body  of  the  noticer.  The  need  for  two  functions  (as  opposed  to  a  single  function  which  docs 
both  unification  and  executes  the  body)  involves  keywords  other  than  :intcm.  'fhe  need  for  includc-cnd-forms 
should  be  clear  from  the  following  mure  complex  example  involving  embedded  demons. 


(notice  (:intern  (function-f rom  7f  7doma1n  Trange))  *usar-quaut* 
(notice  (; intern  (7f  7x))  *usar-quaue* 

(Icons!  (->  (and  (function-fron  7f  7doma1n  7ranga) 

(7doina1n  7x)) 

(7range  (7f  7»)))))) 

( include-end-forms) 

'fhe  above  macroexpands  to: 


(progn  (add-hashcona-noticer  (term  ’functlon-from) 

'|(FUNCTION-FROM  7F  7D0MAIN  7RANGE)-U.NIFIER| 
•user-queue*) 

(posh  '(add-hashcons-noticer  (term  ’fonction-froii) 

■ |(FUttCT10N-FR0M  7F  700MAIN  7RAN6E)-UNIFIER| 
•user-queue*) 

•temp-ini t-forms*) ) 


(progn  'complie 

(defun  |(FUNCTION-FROM  7F  7D0MAIN  7RANGE)-UNIFIER|  (tern) 

(let  ((args  (edr  (subtarms  term)))) 

(if  args 

(let  ((7f  (car  args))) 

(if  (edr  args) 

(let  ((fdomain  (cadr  args))) 

(if  (eddr  args) 

(let  ((7range  (caddr  args))) 

(if  (noli  (edddr  args)) 

(|(FUNCTI0N-FR0M  7F  7D0MA1N  7RANGE)-B0DY| 

7f  7domain  7rango)))))))))) 

(defun  |(FUNCTION-FROM  7F  700MAIN  7RANGE)-B0DY|  (77  7dona1n  7range) 
(add-hashcons-noticer  7f 

'(lambda  (term) 

(|(7F  7X)-UNIFIER|  tarn  ‘.7f  '.fdomain  '.tranga)) 
•user-queue*)) 


(defun  |(7F  7X)-UNIFIER|  (term  7f  7doms1n  7range) 

(1st  ((args  (edr  (subtarms  term)))) 

(if  args 

(lat  ((7x  (car  args))) 

(if  (nu11  (edr  args)) 

(|(7F  7X)-B00Y|  7x  7f  7doma1n  7range)))))) 
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(defun  |(7F  7X)-B00V|  (7x  7f  7doma1n  7rang8) 

(add-clause  (list  (cons  (virt-tns-node 
( term-hashcons 
(list  (tern  ’functlon-from) 

7f  7donia1n  7range))) 

' :fa1sa) 

(cons  (v1rt-tfflS~noda 

( tern-hasbcons  (list  7doma1n  7x))) 

‘ :fa1sa) 

(cons  (virt-tins-noda 
( term-hashcons 
(list  7ranga 

(term-hashcons  (list  7f  7x))))) 

' :true))))) 

The  embedding  of  the  notice  macro  in  the  above  example  is  very  similar  to  embedding  of  PLANNER  or 
AMORD  dciiions.  'I1ic  variables  in  the  inner  demon  inherit  their  bindings  from  the  outer  demon.  In  any  use 
of  notice  the  car  of  the  pattern  must  not  contain  variables  to  be  bound  during  triggering.  However  the  car  of 
tlic  pattern  may  contain  variables  which  arc  bound  outside  tlie  notice  construct.  Note  that  the  internal  notice 
form  macroexpands  to  an  application  of  add-ha.shcons-noticer  involving  the  function  |(?F  ?X)|  (the  variable 
*tenip‘init-forins*  is  not  effected  by  the  inner  noticer).  Witliout  the  macro  include-cnd-fomis  it  would  be  very 
hard  fur  the  internal  notice  form  to  define  functions  in  such  a  way  that  they  could  be  compiled. 


6.2.  Naming  Conventions  for  Noticer  Functions 


Two  functions  arc  defined  by  side  effect  each  time  an  application  of  notice  is  macroexpanded.  Each 
function  is  given  a  name  which  is  a  symbol  interned  in  the  RUP  package  (or  simply  an  interned  symbol  in 
MACl.ISP).  The  names  of  the  functions  are  derived  from  the  pattern  in  the  notice  form  (as  shown  in  the 
above  examples).  However  special  care  has  been  taken  to  allow  for  more  than  one  demon  with  the  same 
pallcrn.  For  example  the  following 


(notice  (:1ntern  (p  7x))  ...) 
(notice  (;1ntern  (p  7x))  ...) 
(notice  (:1ntern  (p  7x))  ...) 
(Include-end-foreie) 

macroexpand  to: 


(progn  (add-hashcone-notlcer  (tern  'p)  ’|(P  7X)-UN1FIER|  ..,) 
(puah  '(add-haahcona-noticar  ...) 

•tamp- Ini t-forma*)) 

(progn  (add-haahcona-noticar  (terai  ’p)  '|(P  7X)-2-UNlFIER|  ...) 
(puah  '(add-haahcona-noticer  ...) 

•taaip-lnlt-forma*)) 

(progn  (add-haahcona-noticar  (tern  *p)  ‘|(P  7X)-S-UN1FIER|  ...) 
(puah  ’(add-haahcona-noticer  ...) 

• temp- Ini t-forma*)) 
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(progn  'compll* 

(defun  |(P  7X)-UNIFIER|  (Ura) 

...) 

(defun  |(P  7X)-BOOY|  (?x) 

...) 

(defun  |(P  7X)-2-UNIFIER|  (tara) 

...) 

(defun  |(P  7X)-2-B0DV|  (fx) 

(defun  |(P  7X)*3-UNIFIER|  (tera) 

...) 

(defun  |(P  7X)-3-BOOV|  (7x) 

...)) 

In  spite  of  the  function  naming  convention  exemplified  above  naming  conflicts  can  occur  when  two 
demon  defining  files  share  a  trigger  pattern  and  at  least  one  of  the  flics  is  compiled.  Specifically  when  a 
compiled  tile  is  loaded  the  names  of  the  flinctions  deflned  by  that  file  arc  the  names  given  at  compile  time 
rather  the  names  which  would  have  been  generated  had  the  demon  definitions  been  macroexpanded  at  load 
time.  Consider  a  compiled  flic  containing  a  definition  for  the  function  |(P  ?X)-BODY|.  If  such  a  flic  is  loaded 
into  a  RUP  environment  which  already  has  a  definition  for  |(P  ?X)-)}ODY|  a  naming  conflict  will  occur.  It  is 
also  imporPint  to  note  that  since  loading  a  compiled  file  docs  not  induce  macro  expansions  it  also  docs  not 
effect  the  names  generated  by  later  macro  expansions.  The  best  policy  is  to  make  sure  that  no  two  files  share 
noticcr  patterns. 


6.3.  Events 


There  are  several  meaningful  event  keywords  other  than  :inlcm.  These  event  keywords  arc  described 
below. 


'.true 


Demons  defined  using  this  keyword  arc  triggered  whenever  the  TMS  node  associated'with 
a  term  matching  the  given  pattern  becomes  true.  The  following  example  demonstrates  the  use 
of  this  function. 

(notice  (:true  (p  7x))  *utor-queue* 

(tconxt  (->  (p  7x)  (q  7x)))) 

( Indude-end-formi) 

Ibis  macroexpands  to: 
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(progn  (add-hashcons-notlcer  (term  *p)  '|(P  7X)-UNIFIER|  *ut«r-quaua*) 

(push  '(add-hashcons-noticar  (term  ’p)  •!(?  7X)-UNIF1ER|  *user-quaue*) 
•temp-init-forms*) ) 

(progn  'compile 

(defun  |(P  7X)-UNIFIER|  (term) 

(let  ((args  (cdr  subterms))) 

(If  args 

(let  ((?x  (car  args))) 

(1f  (null  (cdr  args)) 

(|(P  7X)-B00Y|  term  7x)))))) 

(defun  |(P  7X)-B00Y|  (term  7x) 

(If  (not  (eq  ':true  (truth  (virt-tms-node  term)))) 

(push  (cons  *user-queue* 

'(|(P  7X)-B0DY|  .term  .7x)) 

(true-noticers  (v1rt-tms*node  term))) 

(add-c1ause  (list  (cons  (virt-tms-node 

(term-hashcons  (list  (term  ‘p)  7x))) 

‘  :fa1se) 

(cuns  (virt-tms-node 

(term-hashcons  (list  (term  ‘q)  7x))) 

•:true)))))) 

Note  that  the  cixlc  for  1(F  ?X)-BODY|  first  checks  to  sec  if  the  tms  node  associated  with 
triggering  term  is  true.  If  it  is  not  then  a  call  to  |(H  ?X)-l)ODY|  is  placed  on  the  truc-nuticers  of 
the  node  associated  with  the  triggering  term.  Note  that  since  a  node  can  become  true  and  then 
unknown  before  its  true-noticers  are  run  KH?X)-BODY|  might  be  run  several  times  before  it  is 
run  in  an  environment  in  which  the  node  as»)ciatcd  with  the  triggering  term  is  true. 


:false 


This  keyword  is  just  like  :true  cxcqii  that  the  demon  is  queued  when  the  node  associated 
with  the  triggering  term  becomes  false  rather  than  true. 

:change 


This  keyword  causes  the  demon  to  be  queued  the  first  time  the  truth  of  the  node  associated 
with  the  triggering  term  changes. 

:whcncvcr-tnie 

This  keyword  causes  the  body  of  the  demon  to  be  run  whenever  the  node  iMociated  widt 
the  triggering  term  becomes  true.  For  example  the  following 

(notice  ( :whcnavar-trua  (trouble  Tx))  *user-queue* 

(trouble-fixer  7x)) 

( Include-end-forms) 


Gives  rise  to  the  following  definition: 
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(dafun  {(TROUBLE  7X)-B00Y|  (tana  Tx) 

(push  (cons  *usar-quaua* 

*( {(TROUBLE  TX)-B00V{  .tarn  .7x)) 
(true-notlcars  (virt-tfflS*noda  tarn))) 

(If  (aq  ':trua  (truth  (vlrt-tna-noda  tarm))) 
(troub1a-f Ixar  7x))) 


.'Mhcncvcrfabe 

This  is  the  dual  of  :whcncvcr-tnie. 

:«hcncvcr-changG 

'ihis  causes  the  body  of  the  demon  to  be  run  every  time  the  tms  node  associated  with  the 
triggering  term  changes  its  truth  state. 

6.4.  List  Variables 


It  is  often  desirable  to  be  able  to  write  demons  which  trigger  on  terms  with  an  arbitrary  number  of  top 
level  arguments.  A  mechanism  for  doing  this  exists  and  is  exemplified  by  the  following  definition  of  a  noticer 
for  list. 


(notica  (:1ntarn  (11st  .  largs))  *usar-quaua* 

(lat  ((Tfirst  (car  larga))) 

(Iconst  (->  list-definition  > 

(•  (first  (list  .  largs))  7f1rst)))) 

(If  (edr  largs) 

(1at  ((least  (edr  largs))) 

(Iconst  (->  list-definition 

(•  (tall  (list  .  largs))  (Hat  .  least))))))) 

A  Symbol  starting  with  "!"  is  interpreted  as  a  variable  in  a  noticer  trigger  pattern  and  differs  from  a 
symbol  suirting  with  "?"  only  in  that  it  is  bound  to  a  list  of  terms  rather  than  a  single  term.  An  error  is 
triggered  if  either  "?"  or  variables  are  used  in  a  syntactically  incorrect  manner. 


6.5.  Some  Useful  Macros 


Hiis  section  describes  some  macros  which  can  be  used  in  conjunction  with  notice. 


niet 


The  macro  nict  is  just  like  the  macro  let  except  that  it  expands  notice  forms  which  appear 
in  its  body  and  allows  those  notice  forms  to  inherit  variables  bound  by  the  nIet.  notice  forins  can 
only  inherit  variables  bound  by  surrounding  notice  and  niet  contexts.  The  following  is  an 
example  of  the  use  of  niet; 
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(notice  (: Intern  (f  .  large))  *user-queuo* 

(niet  ((7f1rst  (car  largs))) 

(notice  (:true  (r  7f1rst  ?other-th1ng))  *user-queue* 
(let  ( ( lother-args  (cons  7other-th1ng  (cdr  largs)))) 
(Iconst  (->  (r  7f1rst  7other-th1ng) 

(•  (f  .  largs)  (f  .  lother-args)))))))) 


self 


lliis  macro  of  no  arguments  is  used  inside  the  body  of  a  notice  form.  An  application  of  self 
macroexpands  to  a  fonn  which  evaluates  to  a  form  which  can  be  placed  on  a  queue  and  is  in  fact 
the  current  invocation  of  die  body  of  the  innermost  demon.  Consider  the  following  example: 


(notice  (:true  (p  7x))  *user-quaue* 

(n1et  ((nl  (vlrt-tms-node  (termq  (p  7x))))) 

(notice  (:true  (q  7x))  *user-queue* 

(if  (not  (truer  nl)) 

(push  (cons  *user-queue*  (self)) 

( true-noticers  nl)) 

(let  ((n2  vlrt-tms-node  (termq  (p  7x)))) 

(If  (not  (truer  nZ)) 

(push  (cons  *u$er-queue*  (self)) 

(true-noticers  nZ)) 

(print  '((p  .(term-tree  7x)) 

and  '(q  .(term-tree  ?x)) 
are  both  true)))))))) 

Note  that  the  print  statement  will  only  be  reached  in  an  RUP  environment  where  both  the 
nodes  asscKiated  with  (lie  triggering  terms  are  tnie.  If  the  body  of  the  inner  noticer  is  mn  in  an 
environment  where  the  node  asstKi'atcd  with  the  first  triggering  term  is  false  (which  can  happen) 
then  an  execution  of  the  body  is  requeued.  Hie  macro  self  creates  a  new  invocation  of  the 
innermost  notice  body  with  the  current  binding  environment.  Puring  subsequent  invocations  of 
this  body  cither  nude  may  be  false  and  the  body  continues  to  requeue  itself  until  it  is  invoked 
when  both  nodes  are  true. 


this-noticer 


The  macro  this-noticer  of  no  arguments  macroexpands  to  a  form  which  evaluates  ro  the 
intern  noticer  placed  on  an  operator  term  by  the  innermost  notice  form  containing  this  macro. 
This  allows  one  to  get  access  to  the  noticer  and  remove  it  once  it  has  fired.  Consider  the 
following  example: 


(notice  (:trua  (p  7x))  *u<er-queua* 

(notice  (;true  (r  7x  7y))  *ueer-queue* 

(tetf  (Intern-noticert  (tone  ’r)) 

(delete  (this-noticer)  (intern-noticert  (tern  ’r)))) 

...» 

The  above  code  might  be  used  when  it  is  known  that  for  any  ?x  there  is  at  most  one  ?y  such 
that  (r  ?x  ?y).  Thus  when  a  tcim  triggers  the  inner  demon  the  intern  noticer  placed  on  r  can  be 
removed  thus  saving  a  unification  attempts  each  time  some  new  qiplicadon  of  r  is  interned. 
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llierc  are  cleaner  ways  to  gain  efficiency  than  removing  noticers.  The  section  on  currying 
is  important  for  anyone  worried  about  cfTiciency  in  demonic  triggering. 


mapfctch  ((var  pattern)  &rcst  body-forms) 


This  macro  allows  one  to  access  exactly  those  currently  interned  terms  which  match  a  given 
pattern.  For  each  such  term  the  body  forms  are  evaluated  sequentially  in  an  environment  in 
which  the  variable  var  is  bound  to  the  matching  term  and  all  of  the  variables  in  the  pattern  are 
bound  to  the  terms  resulting  from  the  match,  mapfctch  returns  a  list  of  the  values  given  by  the 
last  body  form.  The  fact  that  the  pattern  is  known  at  macroexpansion  time  allows  the  unification 
process  to  be  open  coded  as  it  is  in  the  functions  created  by  notice.  Consider  the  following 
example: 

(mapfatch  (utarm  (p  7x  (f  7y)l) 

(cons  utarm 

(list  (cons  '7x  7x)  (cons  ’Ty  7y)))) 

lliis  evaluates  to  a  list  of  pairs  each  of  which  is  a  pair  of  a  term  and  a  binding  list  where 
each  binding  list  is  a  list  of  pairs  of  a  variable  and  its  associated  value,  mapfctch  can  inherit 
variable  bindings  from  surrounding  notice  and  nict  forms  as  is  shown  in  the  following  example. 


(notice  (:truo  (p  7x))  *ussr-cusu«* 

(putprop  (tsrm-pllst  7x) 

(mapfetcli  (utarm  (r  7x  7y)) 

Ty) 

'r-ro1at1ons)) 

'fhe  body  function  defined  by  this  noticer  would  be  as  follows: 


(defon  |(P  7X)-B00Y|  (7x) 

(putpi'op  (term-pllst  Tx) 

(dal-lf  'null 

(mapear  '(lambda  (utarm) 

(lot  ((args  (edr  (subtarmi  utarm)))) 
(If  args 

(If  (aq  Tx  (car  args)) 

(If  (edr  args) 

(tat  ((7y  (cadr  args))) 

(If  (null  (eddr  args)) 
Ty))))))) 

(applications  (tons  'r)))) 
'r-ralatlons)) 


-  •  -•.rfp.V'yv-  .y 
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An  alternative  to  the  above  is: 


(defmacro  r-r«1at1ons  (term) 

(get  (term-pi  1st  term)  'r-relatlons)) 

(notice  (:true  (p  7x))  ‘r-queue* 

(notice  ( :whenever-change  (r  7x  7y))  *r*qu#ue* 

(If  (true?  (virt-tms-node  (termq  (r  7x  7y)))) 

(If  (not  (memq  7y  (r-relatlons  7x))) 

(push  7y  (r-relatlons  7x))) 

(setf  (r-relatlons  7x) 

(delate  7y  (r-relatlons  7x)))))) 

The  above  code  ensures  that  if  *r-qucuc*  is  empty  the  for  each  ?x  such  that  (p  ?x)  is  true 
(r-rclations  ?x)  is  a  list  of  exactly  those  terms  ?y  such  that  (r  ?x  ?y)  is  true. 


6.6.  Currying 


lliis  section  describes  a  technique  for  writing  more  efficient  demons.  The  basic  idea  is  that  when  one 
has  a  trigger  pattern  of  the  form  (p  tl  ?x  t2)  where  ?x  is  a  variable  and  tl  and  t2  are  known  terms  one  can 
replace  that  trigger  pattern  by  a  pattern  of  the  form  (op  ?x)  where  op  is  a  known  term  incorporating  p.  tl.  and 
t2.  in  this  way  the  unificatiun  function  is  not  applied  to  all  applications  of  p  but  is  instead  only  applied  to  a 
select  set  of  terms  which  contain  the  known  subterms  tl  and  t2. 

'llicre  are  some  conventions  adopted  in  RUP  for  making  this  type  of  transformation  more  convenient 
Specifically  there  is  a  special  higher  order  operator  called  curry  which  takes  any  number  of  aigumcnU  the  first 
of  which  is  always  an  operator  and  the  remainder  of  which  are  either  the  number  1  or  the  number  2.  Each  of 
the  numeric  arguments  to  curry  corresponds  to  an  argument  of  the  operator  argument  to  curry,  llie  best  way 
to  describe  curry  is  with  some  examples.  For  any  binary  operator  ?r,  three  place  operator  ?f,  and  terms  ?x  ?y 
and  ?z  we  have  the  following  equivalences: 


(7r  7x  7y)  •  (((curry  7r  1  2)  ?x)  7y) 

•  (((curry  7r  2  1)  7y)  7x) 

(7f  7x  7y  7z)  •  (((curry  7f  1  1  2)  7x  ?y)  7i) 

•  (((curry  7f  121)  7x  7x)  7y) 

-  (((curry  7f  2  1  1)  7y  U)  7*) 

■  (((curry  7f  1  2  2)  7x)  7y  7«) 

•  (((curry  7f  2  1  2)  ?y)  7x  ?*) 

-  (((curry  7f  2  2  1)  Ti)  7*  7y) 

The  above  equivalences  are  enforced  by  a  collection  of  demons  which  could  have  been  defliied  using 
notice  as  follows: 


(notice  (:1ntorn  (curry  7f  2  1  2))  •rop-top-7*vtl* 
(notice  (iintern  (77  7x  7y  7*))  •rup-top-level* 
(Iconet  (■  (77  7x  Ty  7x) 

(((curry  77  2  1  2)  7y)  tx  fi))))) 


These  demons  arc  only  triggered  when  curry  is  used  so  there  is  no  overhead  for  usen  who  do  not  use 
currying.  However  if  currying  is  ever  used  in  writing  efficient  noticers  the  above  demons  ensure  that  die 
correctly  curried  versions  of  the  appropriate  assertions  are  always  created.  The  curry  demons  arc  hand  coded 
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for  maximal  efficiency. 

The  following  example  illustrates  the  use  of  currying  for  efficiency. 

(notice  {:true  (transitive  7r))  •rup-top-level* 

(notice  (.-Intern  (7r  7x  7y))  •rup-top-level* 

(notice  (:1ntern  (((curry  7r  1  2)  Ty)  tz))  ‘rup-top-level* 

(iconst  (->  (and  (transitive  7r) 

(7r  7x  7y) 

(((curry  7r  1  2)  7y)  7«)) 

(((curry  7r  1  2)  7k)  72)))))) 

Note  that  while  all  uncurried  forms  aie  equated  with  their  curried  equivalents  the  curried  forms  arc  not 
necessarily  equated  with  their  uncurried  equivalents.  Thus  interning  the  term  (r  a  b)  will  trigger  an  intern 
demon  whose  pattern  is  (((eurry  r  1  2)  ?x)  ?y)  but  intcining  the  term  (((curry  r  1  2)  ?x)  ?y)  will  not  trigger  an 
intern  demon  whose  trigger  pattern  is  (r  ?x  ?y).  This  fact  can  be  important  to  writing  efficient  demons  (and  is 
in  fact  important  in  the  above  example). 

Ihe  function  term-tree  recognizes  curried  forms  and  uncurrics  them  which  makes  them  much  more 
readable. 

6.7.  Redundancy  and  Completeness 

1  here  arc  some  problems  with  the  pattern  directed  demonic  invocation  mechanisms  described  in  this 
section.  Ihesc  pioblcms  relate  both  to  the  redundant  triggering  of  demons  (triggering  a  demon  more  often 
than  need  be)  and  to  tlic  completeness  of  triggering  (not  triggering  demons  when  they  should  be  triggered). 
Consider  the  following  demon  for  pair. 


(notice  (:1ntern  (pair  7a  (list  .  Irest)))  *user-queua* 

(Iconst  (->  list-definition 

(•  (pair  7a  (11st  .  Irest)) 

(list  7s  .  Irest)))) 

Suppose  the  term  (pair  a  (list  b  c))  has  been  interned  and  that  the  above  demon  has  been  uiggered  on 
this  term.  Further  suppose  that  the  equality  (=a'nil)  is  true.  Some  process  may  create  the  term 
(pair  'nil  (list  b  c))  as  the  result  of  substituting  'nil  for  a  in  (pair  a  (list  b  c)).  If  the  above  demon  has  been 
triggered  on  (pair  a  (list  b  c))  then  there  is  no  reason  to  trigger  it  on  (pair  'nil  (list  b  c))  since  these  two  terms 
can  be  equated  by  substitution.  However  when  the  latter  term  is  interned  the  above  intern  demon  would  be 
triggered. 

Ihe  result  of  matching  a  demon  pattern  against  a  particular  term  is  a  binding  environment  e  which  maps 
the  variables  in  die  pattern  to  terms.  In  general  fwo  binding  environments  e^  and  e2  will  be  called  variants  of 
each  other  if  they  are  defined  on  the  same  domain  of  variables  and  for  each  variable  ?x  in  that  domain  e2(?x) 
ond  C2(?x)  arc  in  the  same  RUP  equivalence  class.  In  general  a  specific  invocation  of  a  demon  under  a  binding 
environment  e  will  be  called  redundant  if  that  demon  has  already  been  run  under  a  binding  environment 
which  is  a  variant  of  e.  RUP  attempts  to  avoid  executing  redundant  demon  invocations  by  not  triggering 
demons  with  ten  ns  which  are  generated  internally  via  the  substitution  of  equals  for  equals.  Unfortunately 
there  arc  cases  in  which  it  is  useful  to  run  redundant  invocations  of  a  demon.  For  example  consider  the 


6.  THK  NOTICE  MACRO 


•47- 


April  1982 


following: 

(notice  (: Intern  (cons  7a  ?b))  *u8er-queue* 

(If  (and  (eq  'quote  (car  (subterms  7a))) 

(eq  'quote  (car  (subterms  7b)))) 

(let  ((7qterm  (term  ‘(quote  .(cons  (cadr  (subterms  7a)) 

(cadr  (subterms  7b))))))) 

(Iconst  (->  cons-def Initlon 

(■  (cons  7a  7b)  7qtorra)))))) 

Gcarly  the  demon  has  an  important  effect  when  run  under  a  binding  environment  e  which  binds  the 
variables  to  quotations  even  if  the  demon  has  previously  been  run  on  a  variant  of  e  which  did  not  bind  the 
variables  to  quotations.  Tlie  reason  the  redundant  invocation  is  useful  in  this  case  is  that  the  body  of  the 
demon  tests  for  syntactic  properties  of  the  terms  to  which  the  variables  arc  bound.  If  the  body  of  a  demon 
only  uses  variables  in  "semantic"  ways  then  this  problem  would  not  arise.  A  variable  is  used  in  a  semantic 
way  when  it  docs  not  matter  what  term  the  variable  is  bound  to  as  long  as  that  term  refers  to  the  proper  thing. 

One  possible  extension  to  the  existing  demonic  mechanisms  which  might  solve  the  problems  related  to 
redundant  triggering  is  to  introduce  a  new  kind  of  variable  into  the  patterns  of  demons  which  would  only 
bind  to  self-referential  terms.  This  would  allow  the  syntactic  tests  made  in  the  above  demon  to  be 
incorporated  into  the  pattern  match  and  thus  one  might  be  able  to  automatically  control  demonic  invocation 
in  a  way  that  avoids  redundant  invocations  yet  still  invokes  syntactic  demons  with  the  proper  binding 
environments. 

In  addition  to  having  problems  with  redundant  invocations  RUP  has  a  problem  in  that  the  demonic 
invocation  mechanism  is  not  complete.  Consider  the  following  demon: 

(notice  (: Intern  (f  (g  7x)))  'user-queue* 

(Iconst  (->  f-g-def Inltions 
(•  (f  (9  7*))  7*)))) 

Suppose  that  the  term  (fb)  has  been  interned  and  that  b  and  (g  c)  arc  in  the  same  equivalence  class.  By 
substitution  it  would  be  possible  to  generate  the  term  (f  (g  c))  and  the  above  demon  could  trigger  on  this  term. 
However  since  such  substitutions  arc  not  performed  automatically  the  above  demon  would  not  be  triggered  in 
this  case. 

For  any  expression  p  containing  variables  (i.e.  any  trigger  pattern)  and  any  substitution  e  for  the 
variables  in  p  let  c(p)  denote  the  result  of  replacing  each  variable  in  p  by  its  image  under  e.  Let  T  be  any 
collection  of  terms  and  p  be  any  trigger  pattern.  A  substitudon  e  will  be  said  to  map  p  into  T  just  in  case  e(p) 
is  equivalent  (can  be  equated  via  subsdtudon  of  equals  for  equals)  to  some  term  in  T.  Let  {pj}  be  a  collection 
of  trigger  patterns  each  of  which  is  associated  with  a  body  b^.  A  particular  demonic  invocation  mechanism  will 
be  said  to  be  complete  with  respect  to  {pj}  and  T  just  in  case  for  every  p|  and  every  binding  context  e  whidi 
maps  Pj  into  T  the  body  bj  gets  called  under  some  binding  context  which  is  a  variant  of  e. 

It  should  be  possible  to  extend  the  demonic  invocadon  mechanism  in  RUP  so  that  it  is  with 

respect  to  the  intern  demons  and  the  interned  terms,  the  true  demons  and  the  true  terms,  etc.  If  the  demonic 
invocation  mechanism  were  also  careflil  not  to  perform  redundant  invocations  such  an  extenrion  to 
completeness  would  probably  not  generate  an  unreasonable  number  of  demon  invocations. 
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'rhc  problem  of  generating  a  complete  unification  mechanism  has  been  studied  in  detail  by  people 
working  on  resolution  theorem  proving.  The  problem  is  defined  precisely  by  Huct  and  Oppen  in  a  survey  of 
results  on  equations  and  rewrite  rules  [Huet  &  Oppen  79]. 

6.8.  Transitive  Relations 

There  arc  true  noticers  defined  in  the  default  RUP  environment  which  recognize  applications  of  the 
second  order  predicates  transitive,  reflexive,  antisymmetric  and  strictlyantisynunctric.  Assuming  that  the 
queues  *cqualityinvariants*,  *rup-top-lcvcl*.  and  ^cktracking-invariant*  have  all  been  emptied  die 
following  conditions  hold  with  regard  to  these  predicates: 

(1)  If  an  asscrtional  term  of  the  form  (transitive  r)  is  true  then  all  applications  of  r  which  can  be  deduced 
from  transitivity  and  known  applications  of  r  have  been  deduced. 

(2)  If  an  assertion  of  the  form  (reflexive  r)  is  true  then  for  each  interned  term  of  the  form  (r  x  y)  if  x  and  y  are 
in  the  same  equivalence  class  then  (r  x  y)  is  true. 

(3)  If  an  assertion  of  the  form  (antisymmetric  r)  is  true  then  for  each  pair  of  true  assertions  (r  x  y)  and  (r  y  x) 
the  assertion  (=  x  y)  is  true. 

(4)  If  an  assertion  of  the  form  (strictlyantisymmctric  r)  is  true  then  for  each  tnic  assertion  (rx  y)  the 
assertion  (r  y  x)  is  false. 
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7.  FUNCTION  AND  VARIABLE  INDEX 


•atoniic-lcvcl* . 28 

*backtrackcr* . 12 

•backtracking-invariant* . 12,12 
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•premise-selector* . 16 
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•view-node* . 14 
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assert . 30 
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atomic-level-prop . 29 

atomic? . 21 

backtracker-default . 16 

certainty . 8 


changc-noticers . 18 

class-data . 20,26 

class-members . 25 

class-plist . 26 

clause . 9 

clausc-ccrt . 13 

clause-list . 9 

commutative? . 23 

contradictory . 13 

curry . 45 

default . 8 

default-cert . 8 

dependents . _...25 

e . 24 

eq-next-canonical-eqs . 20 

eq-term . 25 

cqs . 20 

equality . 24 

equated-suppoit . 25 

equivalents . 26 

false-noticers . 18 

false? . 9 

fifo-empty? . 6 

fifo-push . 6 

Ox-temps . 36 

hashcons-notkers . 24 

iff-notker . 32 

implies . 13 

intem-canonkalize-default . . 22 

konst . . . . . ............ _ 34 

make-eq _ .............. _ ............................... _ .......25 

make-flfb........ _ ........................ _ ................. _ ....6 

make-premise  13 

mapfetch.... _ .................. _ .............. _ 44 

membe^refe^ents . 26 

members . ................26 

neg-clauses - 7 
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ncw-simplification-state . 28 

nc  w-tcrm-dcfault . 23 

next-canonical . 20 

nlet . 42 

nodc-add-clausc . 13 

node-extension . 8 

nodc-plist . 8 

nodc-try-to-show . 17 

node-why . 15 

not-noticer . 31 

notice . 37 

or-noticcr . 31 

parents . 20 

pos-clauscs . 7 

premises . 16 

psat . 9 

remove-default . 14 

retract . 30 

rctract-prcmise . 14 

rctractq . 34 

reverse-truth . 16 

run-queues . 6 

rup-init . 36 

c.i.uc-imagc? . 25 

sbound . 29 

self. . 43 

self-referential? . 21 

set-default . 14 

size . 26 

strictly-antisymetric.- . 48 

subterms . 19 


symtric..» . 48 

term . 19.21 

term-extension . 20 

term-hash . 19 

tcrm-hashcons . 21 

term-init . 35 

term-plist . 20 

term-tms-node . 20 

term-tree . 21 

terml . 24 

tcrm2 . 24 

termq . 33 

this-noticer . 43 

tms-node . 7 

transitive. . 48 

truc-cq? . 25 

true-noticers . 18 

true? . 9 

truth . 7,7 

try-to-show . 33 

try-to-showq . 34 

unknown? . 9 

user-referenced? . 20 

view-clause . 15 

virt-tms-node . 21 

what-is . 33 

what-isq . 34 

why . „.32 

why-is . 33 

why-isq.» . 34 

whyq . . 34 
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